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ABSTRACT 
HS. Cone Tie AN FUNCTIONAL Test IN Te TIRE veh a es Y 1 
TERMINAL FUNC T THEE NTT PANILY 
OF 61 T oRRINA HEIR DERIVED TESTING 


TERMINAL MI AND ASSOCIATED RAMS. 
TO THE VT61 WILL BE PRECEEDED BY A SOM AND TERMINATED WITH A EOM. 
TWO DISTINCT MODES IN WHICH PROGRAM CAN BE 


oy Aro ALL wil BE ET Nal ot rests WHICH 
REEN OBSERVATION 


VTL C 
crests. Fad FRU RU eb) a "HILL ee exeCUTED Bone viet REPETITIVELY. 
ON THE SYS ER "CONSOLE (WHICH IS NOT 
TES re EVEN IF IT IS A VT61). 


IN MANUAL MODE CONSOLE ENTRY OF THE ADDRESSES AND TESTS IS 
REQUIRED. THE ADDRESSES AND TESTS CAN BE ENTERED IN A 
eee oe MANNER AND THE SUBSEQUENT EXECUTION WILL FOLLOW 
THE ENTRY pete: TH WIS MODE MUST BE UTILIZED TO ENTER THE 
KE DATA LOOP TEST, AND PRINTER CONTROLLER TEST. 
ee GOnPLETION WILL EXIt TO THE RE-START POINT FOR THE 


REQUIREMENTS 


EQUIPMENT 


POP 11 FAMILY COMPUTER WITH 8K WORDS OF MEMORY, A CONSOLE, AND UP 
TO 16 VT61"S CONNECTED TO THE HOST COMPUTER VIA DL11-A,B.C OR D. 
VT61 MUST BE IN REMOTE; FULL DUPLEX AND AT LEAST 300 BAU. 


LOADING PROCEDURE 


PROCEDURE FOR NORMAL BINARY PAPERTAPES SHOULD BE FOLLOWED. 


a ee ee 


SEG 0004 


ee eS eS ee ee 


a ae 


| MAINDEC-11-D2VTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 4 3 
D2VTHB.P11 ‘11-FEB-77 08:24 SEQ 000s 


124 PAGE 4 
1eS 
is 
1g 4. STARTING PROCEDURE 
129 
131 
13 4.1 CONTROL SWITCH SETTINGS 
134 STANDARD POP 11 FORMAT 
bs, SWiS = 1 HALT ON ERROR. 
13 SW14¥ = 1 LOOP ON TEST 
140 SW13 = 1 INHIBIT ERROR TYPEOUTS 
ie SW11l = 1 INHIBIT ITERATIONS 
ie SW10 = 1 BELL ON ERROR 
1 SW9 = 1 LOOP ON ERROR 
SWw8 = 1 LOOP ON TEST IN SWR<7:0) 
SPECIAL NOTE 


IF THE COMPUTER UTILIZED IS A LSI 11 OR A 
COMPUT Tn mat A A SWITCH REGISTER. THE 
PROGRAM WILL UTA LEE m REGISTER 174 AND 
176 AS A “DI ia AND_ A 
obeas it REGIST RESPECT te 

WILL RE I te THE 
POADING. OF THE “SWITCH” REGISTER LOCATION 
Sean TO STARTING OR RESTARTING THE 


162 


9 oe rk hr ah a ah 
Gofor Gato WOU ee hu db IO 


16S 4.2 STARTING ADDRESSES 


167 200 IS THE STARTING ADDRESS OF THE “AUTO” ACCEPTANCE TEST 
168 204 IS THE STARTING ADDRESS ON THE “MANUAL” SELECT TEST. 


172 S. OPERATING PROCEDURE 


174 FOLLOWING IS a | OPERATING PROCEDURE FOR THE “AUTO” AND “MANUAL” 
175 MODES OF TESTING 
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6.1 
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S.1 AUTO ACCEPTANCE MODE (SA = 200). 


dbrion SELECTIONS: Slow °RS LGge ON TEST Gh 115, BELL ee 


ANY EXT 
ihveaventron, (¢ ate Ht Ae Paremir Lhe A TpeU UNITS ATTACHED AND 
NTIALLY TEST ALL UNI TITIVELY WITH TESTS 1 THRU 2D. 


MANUAL UNIT/TEST SELECTION MODE (SA = 204) 


ate au0s REQUINe? THE OPERATOR TO ENTER THE ADDRESSES OF THE 
Put 19. oF rest fa old S 17XXxXX, ECT, -UP TO ae aa ENTRIES), 
The evra S RETURN, AND’ TERMINATED 


WITH ; 

ILLEGAL ADDRESS WILL RESULT_IN 

oe a See BEING TYPED Ne AODRESS IGNORED. THE OPERATOR MUST THEN 
UPON P rREGUEST, ENTER A ENTE CI Lage TO BE 2 a i + 


°Z2,0/R) 
fener ae IfiveLy EIEN MED A S77 OCIR MEL peak iN THe 


SIMPLY DEPRESSING A_ CARRIAGE ee —y # UNIT ADDRESSES ARE 
REQUESTED WILL RESULT vt ol THE HOWEVER, TING OF GOOD 
py .. ati OPERATIONAL VT61’°S ATTACHE : Ms TEST LIST 

oat BE ENTERED VIA THE CONSOL RUNNING THE 
BXERCIS , MODE A CONTROL C (03 OGTAL) oo RESULT IN 
TERMINATION OF TESTING AT THE END OF THE CURRENT SUBTEST. 


ERRORS~GENERAL 


NO OPERATIONAL VT61 ATTACHED 


IF _THE ost SELECTED (IN ope hy Ore OR IN THE MAPPIN 
prea. f RESPOND nope) DOES wre Re aah IN A_UNIT WHICH Wg 
ABL a THE ao © RESSAGE “NO V 


NO VT61 RESPONDED 
TO §&S z euro F TRY <_< sec" WILL BE DISPLAYED ON THE 
ener 7" 30 UNTIL EST IS STOPPED OR A UNIT 


EXCESSIVE “FATAL” ERRORS FROM UNIT UNDER TEST 


IF_TEN FATAL ERRORS ( INCOMPLETE TRENSHT TORECIENE cvetes? OCCURS 
THE MESSAGE “TESTING ABORTED-TO0O FATAL XMITS” WILL BE 
DISPLAYED AND THE TEST WILL EXIT TO THE INIT IAL SETUP SEQUENCE OF 
THE REQUESTED MODE. IF THE TEST THEN LOCATES AN OPERATIONAL 


SEG 0006 


MAT 
DZVT 


236 


C-11-D02VTH 
Pll ll 


GO1 
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UNIT, IT WILL BEGIN TESTING iT. 


ee eee oe Cts 


SEQ 9007 


01 
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238 PAGE 6 
239 
240 
el 6.3 COMMON ERROR MESSAGES 

3 
ei A. ESCAPE SEQUENCE ERROR (ERROR 1) 
246 THIS ERROR MES IS RETURNED WHEN A SPECIFIC ESCAPE 
247 SEQUENCE DID NOT CIT THE EXPECTED RESPONSE FROM THE UN 
248 UNDER TEST. MESSAGE Ri TEST #, ERROR PROGRAM COUNT uN 
249 TWO WORDS WHICH CONTAIN UP TO 4 BYTES OF THE FAILING ESCAPE 
250 SEQUENCE (I.E. IF “TRANSMIT ALL” FAILED: THE ESC,0, V_ WOULD 
251 BE DISPLAYED IN THE FORMAT BYTE 1+2= Hp 1Sei? BYTE 3+4= 
252 000126). 
253 
254 
e55 8. RECEIVE STATUS ERROR (ERROR 2) 
257 THIS ERROR MESSAGE IS RETURNED IF ANY OF BITS 12, 13, OR 14 
258 ARE SET IN THE INTERFACE RECEIVE BUFFER REGISTER. DATA 
259 DISPLAYED IS THE ADRESS OF THE CSR (CONTROL AND STATUS 
260 REGISTER) OF THE FAILING UNIT THE CONTENTS oF THE 
261 FOREMENTIONED CSR , THE ERROR BITS FROM THE RECEIVE BUFFER 
262 REGISTER BND THE CHARACTER een WAS STORED WHEN THE ERRORS 
263 WERE DETECTED 
i 
obb C. SOFTWARE STATUS (VSTAT) ERROR (ERROR 3) 
268 THE LOCATION TAGGED “VSTAT” IS USED BY THE PROGRAM TO STORE 
269 DYNAMIC CONDITIONS RELATING TO THE UNIT UNDER TEST. THE 
e70 BITS WHICH MAY CAUSE A SOFTWARE STATUS ERROR ARE: 
ore BIT 15 SET FOR XOFF, CLEARED FOR XON 
Lae BIT 14 SET WHEN START OF MESSAGE RECEIVED 
376 BIT 13 SET WHEN END OF MESSAGE RECEIVED 
ore BIT 12 SET FOR A PERIPHERAL ABORT MESSAGE 
ea0 BIT 10 SET WHEN AN INTERFACE ERROR DETECTED 
282 BIT 7 SET WHEN AN XOFF WAS DETECTED AND THE 
383 TRANSMITTER WAS SHUT DOWN BY THE SOFTWARE. 
cee BIT 1 SET WHEN TRANSMIT COMPLETE 
287 THE ONLY BIT WHICH WILL UNCONDITIONALLY CAUSE THIS ERROR IS 
2e8 BIT le (PERIPHERAL ABORT) ALL OTHER BITS WILL BE SET AND 
289 RESET AND AN ERROR IS DEPENDENT UPON EXPEC TED CONDITIONS 
230 (I.£. AFTER A COMPLETE TRANSMISSION ITs 1 13 AND 14 MUST 
291 BE SET AND OTHERS MENTIONED RESET OR "ERROR WiLL ee 
292 REPORTED). DATA DISPLAYED IS THE pase #, THE TEST 
293 EXPECTED STATUS AND ACTUAL STATUS. 
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D. VT&1 HUNG ERROR (ERROR 11) 


THIS ERROR MESSAGE Pa DISPLAYED IF COMPLETE 

TRANSMISSION(S) DOES NOT R A Sons) aN EOM(S) AND 
TRANSMIT DONE. THIS ERROR ‘3 vi mt ERROR AND TEN OF THESE 
ERRORS WILL RESULT IN THE TEST ABSORTING. 


7. RESTRICTIONS 


A. IT IS IMPERATIVE THAT BOTH THE INTERFACE AND THE VT61 SHOULD 
BE PLACED IN FULL DUPLEX AND REMOTE (NOT LOCAL) MODE. 


B. UNIT TO BE TESTED CANNOT BE THE CONSOLE DEVICE. 


C. FOR THE AUTOMATIC TEST MAPPING OF THE DL11’S, ALL ADDRESSES 
FOR THE UNITS TO Be TESTED MUST BE WITHIN THE soo DEC 
else bop AND F_ THIS IS NOT THE THE 

PROCEDURE OUTLINED IN SECTION 8-B MUST BE FOLLOWED B BEFORE 

TESTING IS BEGUN. 


8. MISCELLANEOUS 


A. EXECUTION TIME FOR THE AUTO SELECTION TESTS (TEST 1-20) WITH 
UNITS SET TO A BAUD RATE OF 9600 BAUD IS APPROXIMATELY SC 


B. TO TEST A DEVICE (DL11 WITH VT61 ATTACHED) AT NON-STANDARD 


BORE Sx st OF Tie LOCATION A ” AODRES See FRO LBcaTON 


ae OH ED be ATE nd Met BS. 2 SOME 


APPED AND TESTED IF THE PROPER RESPONSES ARE OBTAINED. 


Cc. 10 CENT en THE NUMBER OF FATAL EERO ALLOWED BEFORE TESTING 
IS RTED, LOCATION A pal (LOADED WITH 10) CAN BE 
MODIFIED TO’ THE DESIRED COUN 


D. ALL TESTS EXCEPT TEST 1 AND TEST 23 ARE RUN IN MAINTENANCE 
MODE, THEREFORE ALL TRANSMISSIONS FROM THE VTb1 ARE EXPECTED 
TO BE PRECEEDED BY A SOM AND TERMINATED WITH A EOM. 


SEQ 0009 
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9.1 


9.2 


9.3 
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3. PROGRAM DESCRIPTION 


INITIALIZATION 
fh "Rg AES ATREG "anenSe” TON TET AES Ete iPS PSR 
NTERRUPT CAPABILITY V10 THe ote 
Sh Lae Meee SF 2 Fron The TABLE. 
NOT RESPOND WITH E 
PURGED. seh ncPik OPERATIONAL UNITS ARE STORED INA TABLE(DLTBL) AND 


TEST 1 CHECK ALL COMMON ESCAPE SEQUENCES. 


THIS ay ISSUES ALL ESCAPE SEQUENCES AND INSURES THE VT61_ HAS 
NOT por ee DURING AN ESC SEQUENCE BY ISSUING A ESC Z TO FORCE A 
A 1 Oe en 3 PURPOSE OF THE TEST IS TO ATTEMPT TO INSURE 
hor HAT | SUBSEQUENT TESTS WILL NOT RESULT IN A “HUNG” UNIT. DATA IS 


ALL ERRORS ARE REPORTEDED AS ESCAPE SEQUENCE FAILURES(ERROR 1). 


TEST 2 CHECK MAINTENANCE MODE. 


pout Se um mY Ara ee pel al tae rol ge SOM AND _EOM TO 
MV TEST. _MAINTENANCE 


FRO 
PO LECTPhalRESSONGE A HE HES Ts ESE dS evel 


ERROR 22 WILL BE ISSUED IF EITHER COMPONENT(SOM/EOM) IS MISSING. 


TEST 3 CHECK DIRECT CURSOR ADDRESSING 


THIS TEST INSURES THAT THE CURSOR WILL os * te TO pinsst CURSOR 

ADDRESSING. THE UNIT IS RESET ANDO THE CURSOR POSITION IS 

ig 4 IED TO BE HOME. THE CURSOR IS THEN MOVED TO ROW e3 COLUMN 
C AND THE POSITION IS AGAIN VERIFIED. 


CURSOR POSITIONING ERRORS(ERROR 7) ARE REPORTED IF THE POSITIONS 
ARE INCORRECT. 


SEG 0011 
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9.4 TEST 4 CHECK LINEAR ADDRESSING MODE. 


ROUTINE TO INSURE THE UNIT CAN ENTER LINEAR ADDRESSING MODE. 81 
CHARACTERS ARE ISSUED TO THE UNIT UNDER TEST THEN THE CURSOR 
POSITION IS READ AND MUST BE ROWL, COL.O. 


AN ESCAPE SEQUENCE ERROR (ERROR 1)IS ISSUED IF THE CURSOR IS NOT 
AT ROW1,COL.O 


TEST 5 CHECK XON/XOFF FROM VT61 


TEST TO. INSURE OPERATION OF XON/XOFF COMMANDS FROM VT61._ XOFF IS 
FORCED BY TRANSMITTING THE vey ON LINE 23 WHILE SIMULTANEOUSLY 
FILLING THE SILO WITH NEW DATA. AFTER SENSING THE XOFF, THE TEST 
WAITS FOR THE TRANSMIT TO FINISH AND INSURES XON “OCCURS BEFORE 
THE MAXIMUM TRANSFER TIME HAS ELAPSED. (30 SECONDS) 


ERRORS ARE REPORTED IF THE FORMAT OF ERROR 3(VSTAT ERRORS) AND 
WILL REFLECT EITHER LACK OR EXCESS OF BIT 15. 


TEST & CHECK XON/XOFF TO VT61 


ROUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE VT61. A FULL 
SCREEN TRANSMIT IS INITIATED AND A SERIES OF XOFFS AND XONS ARE 
ISSUED TO THE TERMINAL SEQUENTIALLY. ERRORS ARE REPORTED IF 
XOFF DOES NOT S OR A XON RESTART THE TRANSMISSION. TEST 18 
ENDED WHEN E0M IS TOF ASED. 

ERRORS ARE REPORTED(ERROR 15 FOR XOFF FAILURE AND ERROR 16 FOR A 
XON FAILUREJAS SPECIFIC ERROR MESSAGES. 


TEST 7 CHECK RAM AND COMMUNICATIONS PATHS 


ROUTINE TO TEST VT61 RAM AND THE COMMUNICATION PATHS. THIS 
ROUTINE ISSUES A SERIES OF FULL SCREEN PATTERNS (777100, 100/77, 
hos ie TING DEO INCRE I ‘ 


THE F SCREEN 
ITERATION RECEIVED DATA IS CHECKED AND ALL ERRORS (INCLUDING 
TRANSMISSION) ARE REPORTED. 


ey REPORTED COULD BE ERROR 2 FOR A RECEIVE STATUS ERROR, ERROR 
4 FOR DATA ERRORS AND ERROR 5 FOR A RECEIVE BYTE COUNT ERROR. 


SEQ C012 
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9.10 TEST 10 CHECK TRANSMIT AND RECEIVE CHECKSUMS. 
ROUTINE TO fest oni ABILITY OF THE VT61 TO CALCULATE AND T 


Tree Ue er ae 
Seago 1s 
GL ZING THe pate TERT TO THE vie IN SUBTEST "—'s Aarne s PUL FULL 


ERROR 13 IS ISSUED(WITH CALCULATED AND RECEIVED CHECKSUM) 


See San Ean (Sie 1A PALE cht? att kod 


TEST 11 CHECK BASIC CURSOR COMMANDS 


. 
— 


Soe tre oReS 


uw 
—s 
fr 


—_—_—_—_—X—_—__—_—_—————————————————————————————————— . 


ROUTINE TO INSURE BASIC CURSOR COMMANDS RESULT IN CORRECT CURSOR 
ARE IS IN THE SEQUENCE: RESET, CURSOR 

RIGHT, CURSOR DOWN, CURSOR AND CURSOR UP. THE READ’ CURSOR 
POSITION COMMAND "IS ISSUED AETER EVERY MOVE CURSOR COMMAND AND 
RECELV POSITION IS COMPARED TO THE EXPECTED POSITION AND ANY 


AN ESCAPE SEQUENCE ERROR(ERROR -1) AND A CURSOR POSITIONING 
ERROR(ERROR &) ARE ISSUED IF ANY FUNCTIONS ARE DETECTED TO FAIL. 


9.12 TEST 12 CHECK READ CHARACTER AT CURSOR 
ROUTINE TO too THAT READ CHARACTER AT CURSOR FUNCTIONS 


KORRACTER’ AT CURSOR” cael ERROR Te& REBORTED IF THE EHARACTE 


RECEIVED IS NOT AN 


AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A DATA COMPARE ERROR(ERROR 
4) ARE ISSUED IF A FA 


ILURE IS DETECTED. 





——$—$— LT TT 
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9.13 TEST 18 CHECK REPLACE AND INSERT CHARACTER MODES 


Hy ag ea RFE TB a! Saal g f? 


ARACTERS, AT. ROG COL. HAND ROW, COLO 

ARE READ A aro VE bai BE a Be Aire oe *NULL™ “PPD BOwL, OL 

On TERED AND THE RESULTING 

INSERT] ON CAT THE "Tene postTiow ab» VE VERIFIED: ROWO, COL.O SHOULD 
AND ROWI, 0 


IF AN ERROR IS DETECTED IN EITHER MODE,THE APPROPRIATE ESCAPE 
SEQUENCE ERROR(ERROR 1) IS ISSUED. 


TEST T CHECK VT61 SCROLL CAPABILITIES. 


ROUTINE te INSURE bes TFA Rt IF A LINE FEED IS ISSUED FROM 
23 83 COL. 79. IN. SUBTEST “A” 
ROW O IS INITIALLY AND ROW 1 1. AFTER 


Te EXPECTED | % co conte He rEED iho retro ) fu Of SPkceD 
NBA ta CHARACTER “A” IS ENTERED. THE CURSOR 

Bosty TON RE s THEN READ AND, SHO SHOULD BE ROW23, COL.90. THE CHAR 

HOME IS VERIFIED T 


A SCROLL ERROR(ERROR 23) IS ISSUED IF erTer FUNCTIONS FAIL TO 
ELICIT THE PROPER RESPONSE FROM THE UNIT UNDER TEST. THE ERROR 
PC WILL DISTINGUISH BETWEEN THE FAILING FUNCTIONS. 


TEST 15 CHECK ALL SCREEN ADDRESSES. 
BaP AS a he ae lh HE 
SIN doi, WADI EEG eat a ALT BME di 


Bf ead LETHE oO ne SER TRIES 


ALL ERRORS berECT WILL BE REPORTED AS DIRECT C SS 
ERROS (ERROR B ugLL CONTAIN THE POSITION T BAD DATACNON 


-SPACE) WAS fee petecr 


SEQ 0014 


a ee ee 
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9.16 TEST 16 CHECK LINE FEED AND CARRIAGE RETURN 


ROUTINE TO INSURE PROPER OPERATION OF CARRIAGE RETURN AND 
FEED DURING MODE. INITIALLY THE CURSOR IS SE 
D.C.A.) TO ROWO, COL 20 AND ALINE FEED IS ISSUED, T 
POSITION IS THEN AND MUST BE ROWL, COL.2d. 
RE TURN IS THEN ISSUED AND CURSOR POSITION VERIFIED TO 


AN ESCAPE SEQUENCE ERROR(ERROR 1) AND A CURSOR POSITIONING 
ERROR(ERROR 6) WILL BE ISSUED IF AN ERROR IS DETECTED. 


9.17 TEST 17 CHECK ERASE TO END OF SCREEN 


ROUTINE TO VERIFY PROPER OPERATION OF ERASE TO A SCREEN. 
SCREEN IS WRITTEN TO 1920 INCREMENTING CHAR. ERASE TO END OF 
SCREEN IS THEN ISSUED AND THE ENTIRE SCREEN IS READ VERIFYING 
THAT IT IS ALL NULLS. 


hb dat te NN 


591 

592 IF ANY NON-NULL POSITIONS ARE DETECTED, AND ESCAPE SEQUENCE ERROR 
$33 (ERROR 1) AND A DATA ERROR(ERROR 4) WILL BE ISSUED. 

cs 

537 9.20 TEST 20 CHECK SELF TEST, COPIER, AND ISSUE END OF PASS. 


5 

98 

539 SELF TEST (ESC T) + ISSUED TO THE UNIT UNDER TEST AND AN SELF 
TEST ERROR(ERROR 10) IS ISSUED IF THE UNIT CANNOT ote TO AN 

601 “ESCAPE Z” SEQUENCE AFTER SELF TeoT IS COMPLETE. IF SELF TEST IS 

602 SUCCESSFUL THE SCREEN IS WRITTEN TO 23 LINES OF gi ZA Lag 

603 CHARACTERS AND 23 LINES OF INCREMENTING CHAR. IN REVERSE VIDEO. 

604 THE “IDENT IS_ THEN CHECKED ” IF A COPIER IS PRESENT A COPY 
aren oe IS {Sip (NOTE: THIS COMMAND WILL CAUSE THE UNIT 

606 AND NOT RESPOND " ANY FURTHER COMMANDS UNTIL THE 

607 SCREEN HAS BEEN COMPLETELY COPIED.) 


IF THE IDENT INDICATES A COPIER IS PRESENT AND THE COPY SCREEN IS 
PATE een! NOT COMPLETED, A “PERIPHERAL ABORT” (ERROR 20) 


a8 


6 
6 
6 
P 
e **END OF AUTO-ACCEPTANCE TESTS### 
€ 


bb a 
Tum cWwl--O 
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9.22 


9.23 


9.24 
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9.21 TEST 21 KEYBOARD ECHO TEST 


ROUTINE TO ECHO THE KEYBOARD. KEYS FOR TAB, BELL, CARRIAGE AND 

FEED ECHO A MNE MONIC NON-DISPLA AY CHAR. ECHO OCTAL 
EQUIVALENTS AND DISPLAY CHAR. THEMSELVES.  (EXAMPLES- 
CHAR. , SEPACE OR 037, SEACE. ) A CONTROL C (003) WILL 
CAUSE'’A TEST EXIT. 


TEST 22 TEST A LINE PRINTER(PRINTER CONTROLLER MODE) 


ROUTINE TO UTILIZE THE VT61 AS A PRINTER CONTROLLER. AFTER TEST 
MESSAGE IS DISPLAYED, THE TEST WAITS FOR A C/R BEFORE ACTUALLY 
ENTERING TEST. A PATTERN OF INCREMENTING, ROLLING CHAR. WILL BE 
OUTPUTTED UNTIL A CONTROL C (003) IS RECEIVED. 


IF THE LINE PRINTER IS DISABLED AFTER THE INITIALIZATION OF THE 
TEST, A “PERIPHERAL ABORT” (ERROR 20) IS ISSUED. 


TEST 23 UNIT SIMULATOR TEST 


ROUTINE TO LOOP DATA/ / COMMANDS FROM THE VT61 BACK TO THE VT6l. 
DATA TRANSHISSIONS RESULTING FROM A ESC SEQUENCE WILL ALSO BE 
LOOPED AND WILL ENTER THE SCREEN AT THE CURSOR POSITION. THIS 
TEST CAN BE USED TO SIMULATE, OR CREATE SPECIFIC SCREEN PATTERNS 
AND OPERATIONS. A CONTROL C’ (003) EXITS TE 


TEST 24 PRODUCTION KEYBOARD TEST 


PRODUCTION KEYBOARD TEST. ALL KEYS MUST BE DEPRESSED IN THE 
SEQUENCE INDICATED ON THE SCREEN. ALL ERRORS OR MISTAKE 
DISPLAYED IN OCTAL POSITIONAL FORMAT AND THE CORRECT KEY POS 
IN THE ROW IS DISPLAYED IN DECIMAL. THIS TEST IS RUN I 
NAINTENANCE MODE, THEREFORE THE KEYS WILL ECHO THEIR POSITION 
NOT THEIR INDICATED MNEMONIC. THE EXCEPTIONS ARE THE INDIVIDUAL 
TESTS FOR 1 SHIFT AND CONTROL FUNCTIONS. THESE TESTS ARE 
EXPLICITELY DEFINED BY MESSAGES TO THE OPERATOR. 10 ERRORS WILL 
CAUSE AN AUTOMATIC EXIT FROM TEST. 


SEG 0016 
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: IGITAL EOULPNENT CORP. 
Saiaal MASS. 01754 


*THIS PROGRAM WAS ASSEMBLED USING THE ery MAINDEC SYSMAC 
Pooks (MAINDEC-11-D2QAC-C3), JAN 19, 1977 


'SBTTL OPERATIONAL SWITCH SETTINGS 


i SWITCH USE 

;% 1S HALT ON ERROR 

3% 14 LOOP _ON TEST 

3% 13 INHIBIT ERROR TYPEOUTS 
;* 11 INHIBIT ITERATIONS 

;# 10 BELL ON ERROR 

es 3 LOOP ON ERROR 

;# 8 LOOP ON TEST IN SWR<7:0> 


bs bb bb 0 hs ee eh 


-SBTTL BASIC DEFINITIONS 


1) 
1) -*INITIAL ADDRESS OF THE STACK POINTER #*# 1100 ¥## 

1) 001100 TACK= 1 

1) “EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL | 

1 “EQUIV IOT; SCOPE *:BASIC DEFINITION OF SCOPE CALL 

1) j SMISCELLANEOUS DEFINITIONS 

1) 000011 HT= Il $3 FOR HORIZONTAL TAB 

1) LF= 12 FOR LINE FEED 

1) 000015 CR= 15 ; ; CODE FOR CARRIAGE RET 

1) oo00200 CRLF= 200 *CODE FOR CARRI A TUBN-LINE FEED 
1) 177776 PS= 77776 : PROCESSOR STATUS WORD 

1) EQUIV bs Poy 

1) TKLMT= 177774 : STACK LIMIT T RE GISTER 

1) 177772 PIRG= 177772 PROGRAM INTERRUPT REQUEST REGISTER 
1) 177570 DSWR= 177570 *:HARDWARE SWITCH REGISTER 

1) 177570 DDISP= 177570 : HARDWARE DISPLAY REGISTER 

1) ;¥GENERAL PURPOSE REGISTER DEFINITIONS 

1) oo0000 RO= “0 ;;GENERAL REGISTER 

1) 000001 Ri= %1 *:GENERAL REGISTER 

1) oooo02 Ro= %2 ::GENERAL REGISTER 

1) 000003 R3= “3 ; ; GENERAL REGIS! ER 

1) 000004 RY= “4 $3 ReGtat « 

1) 000005 RS= 4S +: GENERAL Rte TER 

1) 000006 Rb= Aa ;;GENERAL REGISTER 

1) 908007 R7= ”“7 GENERAL REGISTER 

1) 000006 SP= “6 tt eTack POINTER 

1) 000007 PC= “7 ::PROGRAM COUNTER 

1) -¥PRIORITY LEVEL DEFINITIONS 

1) ooo000 Pro= : PRIORITY LEVEL O 





em eo eo rr ee ee ee ee 
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BASIC DEFINITIONS 


(1) 0 Ris 40 : PRIORITY LEVEL | 
(1) DOD s . 
Bo BBR e188 CPLR CRE § 
(1) e = L 
= 4 se TY LEVEL 
(t} BBSScB pes S38 HBGEITY LEVEL & 
(1) 000340 PR7= 340 -: PRIORITY LEVEL 7 
(1) -#"SWITCH REGISTER” SWITCH DEFINITIONS 
(1) 100000 afiee tORBSA 
(1) 040000 Swi4= 40000 
(1) 020000 SWi3= 20000 
(1) 010000 SWi2= 10000 
1} 004000 Sul = 4000 
(1) ate SwO9= tat 
(1) 009400 = 40D 
(1) 000200 SwO7= 200 
(1) 000100 = 100 
(1) 000040 = 40 
(1) 000020 = 20 
(1) 000010 SwO3= 10 
(1) 000004 SwO2= 4 
(1) oooo02 SWwOl= 2 
(1) poo001 cwoo= 1 
(1) -EQUIV SWO9,SW9 
(1) -EQUIV SWO8,SW8 
(1) “EQUIV SWO7,SW7 
(1) -EQUIV SWO6, SWE 
(1) -EQUIV SWOS, SWS 
(1) “EQUIV SWO4, SW4 
(1) -EQUIV SWO3,SW3 
(1) EQUIV SwWO2,SWe 
(1) EQUIV SWO1, SWI 
(1) EQUIV SWOO,SWO 
(1) - ¥DATA air DEFINITIONS (BITOO TO BITIS) 
(1) 100000 BITis= J 000 
(1) 040000 BITI4= 0 
(1) 020000 BITI3= 
Blea ae gu” 
(1) 002000 Bttibs 2000 
(1) 001000 BITO9= 1000 
(1) 000400 BITO8= 400 
(1) 000200 BITO7= 200 
(43 BODOND BiTOse 40” 
(1) 000020 BITO4= 20 
ho Baa He 
(1) oo0002 BITOIl= 2 
(1) 000001 BITOO= 1 
(1) -EQUIV BITO9,BITS 
(1) -EQUIV BITO8,BITS 
(1) -EQUIV B8IT07,BIT7 





SEQ 0018 





ein. | 


| Fo2 
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| DZ2VTHB.P11 = «11-FEB-77 08:24 BASIC DEFINITIONS SEQ 0019 
tt fay aie a 
co) Sas “Fouty Biro airs 
(1) “EQUIV BIT03,8IT3 
(i) “EQUIV B1TOe,BITe 
(1) “EQUIV 1701/8111 
C1) “EQUIV BITOO;BITO 
(1) iners 4 ee a cha THER ERROR 
(1) ust BRRVEC: 10 + ECE RVED ane itt GAL TOES RUCTIONS 
(1) 000014 TBITVEC=14 12"T" BIT 
(1) 000014 TRIVEC= 14 tt TRAP 
(1) 000014 BPTVEC= 14 t!BREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= :SINPUT/OUTPUT TRAP (IOT) **SCOPE## 
(1) eerie peeks So OME OR TRAP (ENT) *¥ERRORH* 
(1) nee Sa 3 ERP TRAP 
(1) 000060 TKVEC= 60 ‘TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 t! TTY PRINTER VECTOR 
(1) 000240 PIRQVEC=240 ?!PROGRAM INTERRUPT REQUEST VECTOR 
678 _SBTTL TRAP CATCHER 
(1) ooocco .20 
(1) ;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
(1) S4SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
a) seaee ; LOCATION 0) CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 090174 ooc000 DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
(1) 000176 900000 SWREG: tISOFTWARE SWITCH REGISTER 
679 “SBTTL ACT11 HOOKS 
(2) g: HELLER EEL E EGER EERE EERE EELS EERE EERE LEER SEERA EERE LE LE 
(1) “HOOKS REQUIRED BY ACTLI1 
af saves. ;SAVE PC 
Gd SENDAD 5;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) "WORD. O 532) ET Loc.S2 TO ZERO 
(1) 00 " =$SVPC tt RESTORE PC 
000137 002232 START: IMP AUTO ;USE AUTO SELECTION OF UNITS 


000137 O002eeb4 MSTRT: JMP MANS sALLOW OPERATOR SELECTIONOF UNITS/TESTS 





—<— ee ae ln ee ee SS 
mm a a + es ee 
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bb a he 


S88888888888sssssss 


bb bb bb bb bb be + eb bb be Bb pb bh bb be bb pe bh pe he 


2 b= b= bb bh be bb bP bb bb bs be ae be he he 


N-SEREVKR LOSE E 


MSORRERERENISHENORZGRSS 


S8888S8S8888888888 


11-FEB-77 08:24 COMMON TAGS SEQ 9020 


-SBTTL COMMON TAGS 


5 SESE AE SESE SESE SE EE EE EE A A EEE EE SEE EE EEE EEE EEE EE EEE 
:ATHIS TABLE re VARIOUS COMMON STORAGE LOCATIONS 


**USED IN THE P 
001100 .=1100 
SCMTAG: ;;START OF COMMON TAGS 
oo0000 SPASS: .WORD O “CONTAINS PASS COUNT 
000 STSTNM: .BYTE O tt CONTAINS THE JEST NUMBER 
000 SERFLG: .BYTE 0 i § CONTAINS E L 
oooo00 SICNT: .WORD O *:CONTAINS SUBTEST ITERATION COUNT 
000000 ADR: .WORD O is CONTAINS SCOPE LOOP ADDRESS 
ooo0o00 SLPERR: .WORD 0 :CONTARINS SCOPE RETURN FOR ERRORS 
oo00000 SERTTL: .WORD O tt CONTAINS TOTAL ERRORS DETECTED 
000 SITEMB: .BYTE O *: CONTAINS ITEM CONTROL BYTE 
001 SERMAX: .BYTE 1 :: CONTAINS MAX. ERRORS TEST 
ooo0000 SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
000000 $GDADR: .WORD 0 :: CONTAINS ADDRESS OF ’ ’ DAT 
000000 $BDADR: .WORD O :: CONTAINS SS OF ’BAD’ pata 
000000 $GDDAT: .WORD 0 i | CONTAINS ’ * DATA 
000000 SBDDAT: .WORD 0 scout AINS BAD’ DATA 
000000 . WORD 0 *RESERVED--NOT TO BE USED 
000 BY 0 ; RUTOMAT NDICATOR 
000 SINTAG BVTE 0 auToarre NODE INDICATOR 
Ter at SWR ‘ DSW ;;ADDRESS OF SWITCH REGISTER 
177570 DISPLAY: .WORD DDISP :;ADDRESS OF DISPLAY REGISTER 
177560 $TKS: 177560 iY KBD STA Tus 
1 eeS ES es TTY PR Q G. ADDRESS 
177566 STPB: 177566 Hine ie Sey Se 
000 : . BYTE O : CONTA CERACTER PORE ET LS 
oo2 SFILLS: .BYTE 2 CONTAINS é TOF FTTLER CHARACTERS REQUIRED 
Ole SFILLC: .BYTE 12 * INSERT FILL CHARS. AFTER A “LINE FEED” 
000 STPFLG: .BYTE O 5; “TERMINAL AVAILABLE FLAG (BIT<O7>=0=YES) 
oooo00 STIMES: O *:MAX. NUMBER OF ITERATIONS 
000000 SESCAPE: 0 tT ECCApE ON ERROR ADDRE 
177607 000377 SBELL: .ASCIZ > iliac tna 23 FOR BELL 
077 SQUES: .ASCIT He TION MARK 
015 SCRLF: .ASCII Ae ;;CARRIAGE RETURN 
000012 af: ASCIZ <1l2 


;LINE FEED 
TEE eer eer Teen Te ner Teeny TetT iit Tiere er er err ere eter ttt ty 





ee re eo eC 5 ee + ee a+ eee - = eee + 
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DZVTHB.P11  11-FE8-77 08:24 ERROR POINTER TABLE SEG 0021 
wD) .SBTTL ERROR POINTER TABLE 
(1) :*THIS TABLE CONTAINS THE INFORMATION FOR. EACH ERROR THAT CAN OCCUR. 
a) inLobal Ton siTERg, Pure NUMBER” I ie WHICH cH ITER IN THE thet 1S PERTINENT. 
(1) *NOTEL: Mee STE as RUTEER OTCATES, no DATA IS (SERRPC). 
eee ty : Fach ITEM IN THE TABLE CON AINE M DOINTERS EXPLAINED AS FOLLOWS: 
(1) :% EM ; POINTS TO THE ERROR MESSAGE 
(1) ty DH :;POINTS 10 THE DATA HEADER 
(1) te OT :!POINTS TO THE 
WD) te OF !!POINTS TO THE DATA FORMAT 
(]) 
| ) 001174 SERRTB: 
eB4 sGENERAL ESCAPE SEQUENCE ERROR MESSAGE 
| 686 O01174 023361 EMI sAN ESCAPE SEQUENCE TO VT61 FAILED. 
687 001176 Oe3446 DH1 : TEST#, ERROR PC,2 SEQUENCE BYTES,2 SEQUENCE BYTES. 
688 001200 901424 DTO 
689 001202 Og1444 DFO 
3 sRECEIVE STATUS ERROR MESSAGE 
693 001204 023511 EM2 SRECEIVE STATUS ERROR 
Ba Bolsoe | poseut DHE + RBORESS, STATUS VERR. BITS, CHAR. 
695 001210 O014S4 OTe 
69% OO0lel2 oo1444 OFO 
bag 
699 SRECIEVE SOFTWARE STATUS ERROR MESSAGE. 
701 001214 023600 EM3 SSFTWARE (SIAT) STATUS ERROR 
702 001216 023641 DH3 :PASS#, TEST#, GOOD STATUS, RECEIVED STATUS 
703 001220 001502 OT4 
704 001222 O01S4S OFG 
70 DATA ERROR 
708 001224 023710 EM4 : sDATA EXPECTED DOES NOT MATCH RECEIVE DATA. 
709 001226 023754 HY ‘TEST#, REC. CNT. ,EXPECTED DATA, RECEIVE DATA 
710 001230 001514 DTS 
711 OOle32 o014 DFO 
SRECEIVE BYTE COUNT ERROR 
EMS sBYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED. 
DHS ‘BYTES EXPECTED, BYTES RECEIVED 
OF2 
;GENERAL DIRECT CURSOR ADDRESS FAILURE 
EMG ;CURSOR POSITION ERROR 


DH6 ;GD LINE, GD COL., BD LINE, BAD COL. 





ES A EE 


ar <a En oe 
| 
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| DZVTHB.P11 © 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0022 
725 001252 001476 OF3 
727 ;DIRECT CURSOR ADDRESS ERROR 
< N? ;DIRECT CURSOR ADDRESS ERROR 
785 $0158 OB4S35 Baio iASEs, TESTE, BO. ROW,8D. COL. 
731 001260 001502 DT4 
732 001262 001545 DFE 
ee 
735 ;LAST TEST-SELF TEST FAILED 
737 001264 024534 EMLO ;VTb1 FAILED SELF-TEST FUNCTION 
738 001266 025103 DI ;CSR, VECTOR 
739 001270 001436 O11 
740 Ooleve O01N50 DF 1 
742 ;VTb1 FAIL/HUNG ERROR MESSAGE 
743 001274 024371 Emi ;LAST TRANSMISSION TQ VT61 CAUSED VT61 TO FAIL/HANG 
rai 001278 Neuere oH? ipasse, TESTS, ERROR PC 
745 001 1466 Di 
me 001302 OF4 
748 ;GENERAL TEST FAILURE-PRECEEDS DATA/POSITION ERROR 
750 001304 924457 Em12 ;VTb1 UNDERR TEST FAILED-ERROR DATA FOLLOUS 
751 001306 Oe4275 DH? :PASSw, TEST#, ERROR PC. 
752 001310 001466 DT3 
753 001312 001836 DF 
755 | RECEIVE CHECKSUM ERROR 
757 001314 024710 EM13 ;VT61 RECEIVER CHECKSUM ERROR 
758 001316 e4575 DH12 ;PASS#, TEST#,GD.CKSUN, BD CKSUN 
753 091320 001502 OT4 
760 001322 OO1SHS DFE 
; TRANSMITTER CHECKSUM ERRROR 
764 001324 024757 EM14 ;VTb1 TRANSMITTER CHECKSUM ERROR 
765 00132 e4575 DH12 
766 001330 001502 TY 
767 001332 001545 DFE 
768 
769 
770 
77 ;XOFF FAILED TO HALT BLOCK XMIT 
773 001334 025176 MIS ;XOFF TO VT61 FAILED TO HALT BLOCK XMIT 
774 001336 025713 Hi3 PASS, TEST, VSTAT 
775 001340 001526 DTé 
776 OOM 001836 OFY 
778 ;XON FAILED TO RESTART BLOCK XNIT 


780 001344 025247 EM16 ;XON TO VT61 FAILED TO RESTART BLOCK XMIT 








02 
; bse 
' MAINDEC-11-DZVTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-7 | 
| DZVTHB.P11 = «L1-FEB-77 08:24 ERROR POINTER TABLE SEQ 0023 
| 781 00134 625713 DH13 
782 «001 001526 OT 
783 001352 001536 OFY 
785 ;NO XON AFTER UNIT WAS RESET 
re Rs eee ey’ PRSAOMBETGR CARR HES PST 
oe BRI eR a Tb , : ‘ 
730 001362 001536 OFY 
oe ;PERIPHERAL ABORT ERROR 
? 4 LAST PERIPHERAL OPERATION ABORTED. 
bac aes 70 nt ‘bees TEST ERROR PC, VSTAT 
7% 001370 so2 OT4 
oe 001372 o01545 OFE 
233 CANT CLEAR PERIPHERAL ABORT FLAG. 
801 001374 EM21 COULD NOT CLEAR LAST ABORT FLAG. 
802 001376 745 OH14 
803 001400 0O01S50e2 OT4 
804 001402 O01S4S OF& 
bbe MAINTENANCE MODE DID NOT FORCE A SOM/EOM. 
808 001404 O25507 EM22 SOM OR_EOM NOT REC. IN MAINT. MODE. 
809 O01406 022641 DH3 :PASS#, TEST#,EXP.STAT, ACT.STAT 
B10 001410 9001502 OT4 
gil 001412 o00154s OF& 
13 sLINE FEED OR CURSOR RIGHT AT ROW 23 DID NOT CAUSE A SCROLL. 
815 001414 575 EM23 NO SCROLL FROM LINE FEED OR CURSOR RIGHT. 
816 001416 024275 DH? 
817 001420 001526 O76 
18 001422 001536 OFY 
820 00124 902230 001116 001124 DTO: .WORD  TSTNM, SERRPC, SGDDAT, SBDDAT, 0 
t ue 
B21 0014 651158 0011 000000 OT1: .WORD $GDDAT,S$BDDAT,O 
B22 001444 000 000 000 DFO: BYTE 0,0,0,0 
001447 000 
g23 001450 000 000 OF 1: -BYTE 0,0 
Bes 001452 001 001 OF2: -BYTE 1,1 sDECIMAL TYPE 
827 OO14S4Y 001120 001124 001122 DT2: | .WORD SGDADR,SGDDAT,SBDADR, $BDDAT,O 
001462 001126 O00000 
828 001466 001100 002230 O01116 ODT3: .WORD  $PASS, TSTNM, SERRPC, 0 
a 001474 000000 


001476 at 001 001 OF3: -BYTE 1,1,1,1 
DT4: .WORD $PASS,TSTNM, SGDDAT, SBDDAT,O 


830 901100 002230 001124 
001126 
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rae g2230 901120 001124 
001526 001100 502230 ‘001120 
Oo1834 000000 
001 p00 900 
001541 5 000 1 
001545 O01 000 000 
001550 000 
001552 
022626 
024646 
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ERROR POINTER TABLE 


DTS: | .WORD TSTNM,SGDADR, SGDDAT, SBDDAT, 0 
DT6:  .WORD SPASS, TSTNM, SGDADR,O 
Bre; Mi bB°t 1 
OF:  .BYTE 1,0,0,0 

.EVEN 


; INSTRUCTION DEFINITIONS 
POP2SP_ =22626 
PUSHESP =24646 
pp Suennnensouncenscssenenenqueemeruerer mrt ht 


TION SOFTWARE STATUS(VSTAT) REGISTER BITS 
,  aERRRAEOEELEEEESSESSEDECEAPESESSSSSSAEESESATAOSOGEEREEEEEEOEE 


HEET FOR S0n (stat OF frsshue> 
570000 err 


en ee FS Roe 
CKSUM “pp 3000 ier FO CAL 
’ 


TERA ORT "AeORT 
TATE bi Rec cr CHECKSUM 
ad in vee 


EEE eet WHEN OcTaL 38 

XMKTL =000200 ;SET WHEN TRANSNIT  K LLLED 

REVID ete : SET Wren REVERSE Stor mOBEY RECEIVED 
COMGP  =000020 ;SET TO CONVERT REC. CHAR. BY - 
CURPOS =000004 *SET WHEN CURSOR POS. RECEIVED 

TRMID =000002 *SET WHEN TERMINAL I.D. RECEVED 
XMDNE  =000001 :SET UPON TRANSMIT COMPLETE 


5 ESE SEE EEE 4 8 9 3 9 9 9 SESE EEE SE SE EE a 
EFINITION OF DL11 CONTROL BI 
 eapanenenenen ae aa dd CONTROL STS. ssusnenesnases 


RECO, “op 
BBENA’ 000100 
RERR =100000 
=40000 
RFMER = 
RPAR =} 
TRDY = 
TENA =001 
MAINT =00004 
TCOMB =00104 ;COMBINATION INTERRUPT ENABLE AND MAINT. 
TOTCH =1350- ; TOTAL cence ON SCREEN 
aes =1921 * TOTAL SCREEN 


yreeaaseaieaneyeeaeegeeseesivesrtedicaneaneeanenpegnneansgyy 
S VECTOR STORAGE T 


FOLLOW ARE OLI1 
MUPPET TTT seerererriterTrtritittrirt ttt irri iter iti rt iter rte 
;GO00D DL11 VECTOR TABLE 


WecT: .BLKW 20 


SEG 0024 
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WOW 0O000W 
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001762 


001764 


001766 


001770 


320 
Sel 
See 
923 
$24 
$25 
$26 
S27 
928 
$29 
330 
$31 
932 
933 
934 
935 
936 
937 
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ERROR POINTER TABLE 


DLTBL: .BLKW 20 
INTAB: :BLKW 20 


;G00D DL11 ADDRESS TAB 
;TABLE OF POSSIBLE Oli F ADDRESSES 


CURRENT POINTERS FOR ADDRESSES AND VECTORS 
VECPT: [WORD ; VEC TOR. INDEX 
OLTPT: .WORD “ADDRESS INDE 
“ADDRESS TABLES FOR Aes NTERFACES 


STRTAB: .WORD 176500 1L1A/ 
-WORD 175610 ‘DLL C/D/E 
ENOTAB: “ORD 176676 :DL11 vB 
"WORD 176170 ;DLL1_C/DvE 
“WORD O LIST MARKER 
Terrier iii tts 
-VTb1 N TABLE REFLECT UNIT UNDER TEST 
,japeereenveneneleeatenceonteaieanenantaneaaieanennanateniessiiay 
VRBUF: .WORD 0 sRECEIVE DATA BUFFER 
VXCSR: .WORD 0 sxMTTT 
VXBUF: :WORD 0 ;XMITTER DATA BUFFER 
VECT: :WORD O "VECTOR FOR UNIT UNDER TEST 
CRCSR: :WORD 0 CONSOLE RECEIVE CSR 
CRBUF: :WORD 0 CONSOLE DATA BUFFER 


5 EAE EAE AE AEE AEE SEES SE HEE AE EE SEE SEE SEE SE EEE EE EE EEE EE EEE EE EEE 
; VT61 COMMAND AND SEQUENCE 
iiiititi ttt titiiitiiiitititititititiiitietieriiisireroee sg! 


. BEL =007 . 
BEL: -WORD 007 ;BELL 

.CARRT =015 

CARRT: .WORD O1S ;CARRIAGE RETURN 


-LNFEO =012 


LNFED: .WORD Ole ;LINE FEED 
TAB 


TAB: WORD O11 TAB 
Cer att eee 


1 TABLE DELIMITER 
, , HERMERDED OD RAG TEEEEASEAEEEESEAESSUEADEEEGGSSSAEEEOTEREEEEELOL 
ate =110 
CHOM: .WORD 110 ;HOME CURSOR H 
. CRT =103 
CRT: -WORD 103 ;CURSOR RIGHT C 
-CDWN =102 
COWN: .WORD 102 ;CURSOR DOWN B 
.CLFT =104 


CLEFT: .WORD 104 ;CURSOR LEFT D 


. CUP =101 
CUP: -WORD 101 


;CURSOR UP A 


SEQ 0025 





a es ee ee eee ee 
—— ee 


| MAINDEC-11-DZVTH-B MACY11 27(1006) Fmd oe 08:58 PAGE 13-10 


' 
| DZVTHB.P11 © «-11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0026 
so 112 EQS 
| a4) 001774 00118 cbs: | ThORO ue ;ERASE TO END OF SCREEN J 
Sa 


5 RERRRALAA REEL LE LEA AER L ELLER RRA E AREER RRA EE RR EE EERE RELA E EERE 


pUOSEAEEOSLEURRERDSRERODDERINANSEE SE EREORERDOEREROOSSLEREGED, RHE 
002036 000004 -WORD 4 ABLE DELIMITER (170) : 
Sn. 81 


3 
Quy 

001776 co0002 TABLE DELIMITER (ESCO 
64 pena aaaSeanaennncennnnd ore eee a anaeaneaes 
ug 
4g 000101 .EMAIN =101 
950 002000 000101 EMAIN: .WORD 101 sENTER MAINTENANCE MODE A 
351 000141 ~DMAIN 141 
g5¢ 002002 000141 OMAIN: . 141 sEXIT MAINTENANCE MODE SA 

a 

954 000105 -LKKB = -=105 
955 002004 000105 LKKB:  .WORD 105 LOCK KEYBOARD E 
956 000145 “UNLKKB =145 
357 002006 O00145 UNLKKB: .WORD 145 sUNLOCK KEYBOARD SE 
959 000103 * DRECT =103 
360 002010 000103 ORECT: .WORD 103 ENABLE LINEAR MODE C 
962 000133 -CLRCK =133 
63 002012 000133 CLRCK: .WORD 133 sCLEAR RECEIVER CHECKSUM [ 
965 000134 -CLTCK =134 
368 002014 000134 CLTCK: .WORD 134 SCLEAR TRANSMITTER CHECKSUM 
a: 000112 EEMP =112 
370 002016 000112 EENP: = HORD 112 ENABLE REVERSE VIDEO J 
72 oo2020 000152 DEMP: .WORD 152 sDISABLE REVERSE VIDEO SJ 
974 000137 .IABT =137 
75 oo2022 000137 iABT: .WORD 137 INITIALIZE ABORT FLAG - 
377 5 RERERRE RARER ARLE AREA E RARE EA ELAR A ALARA EERE REE RAL EE ERA REE .* 
$78 002024 000003 “WORD 3 -TABLE DELIMITER (ESCAPE P) 
ne. eR Ce 
981 000131 Cieasd =131 , 
382 002026 900131 ERPNT: = WORD 131 ENABLE AUTO PRINT MODE Y 
oe 002030 000171 DAPNT: . 171 sDISABLE AUTO PRINT MODE SY 
986 000111 ‘EINST =111 
387 002032 B00 11 EINGT: = ORD lll ENABLE INSERT I 
389 002034 000151 ERPL: .WORD 151 ENABLE REPLACE SI 
991 
992 
993 
994 
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ERROR POINTER TABLE SEG 0027 


RAD 4433 
Rs ir itn 054433 :DIRECT CURSOR ADDRESSING 
.R23C79 =067467 
R23C79: .WO 067467 :CURSOR TO LOWER RIGHT 
RCUR: WORD 047433 ;DIRECT CURSOR ADDRESSING 
=ROCUR =h8t31 
ROCUR: .WORD 00131 READ CURSOR POSITION Y 
WORD O 
.0 =117 
ESCO: .WORD 047433 sESCAPE 0 
“XMTAL 2000126 
XMTAL: .WORD 000126 s TRANSMIT ALL V 
.WORD O 
W 047433 sESCAPE 0 
TCUCH HiQRO P ¢ 
CUCH: .WORD 127 ;XMIT CHARACTER AT CURSOR. W ee 
WORD O 
.WORD 047433 sESCAPE 0 
.TXRCK =135 i. 
TXRCK: .WORD 135 :XMIT RECIEVER CHECKSUM ] 
.WORD O 
.WORD 047433 sESCAPE 0 
.TXTCK =136 
TXTCK: .WORD 136 :XMIT TRANSMITTER CHECKSUM 
.WORD 0 
.WORD 147433 sESCAPE 0 
ae 
RABT: . 140 ;READ THE ABORT FLAG. \ 
-WORD O P 


5 SHAE IEIEIHIHEIHEIHIIHIIHIIEIEHIEIEIEIEIE IIH EE aIGIEEESHESEEHE EEE EEE 
. - ; OF TABLE NATOR 

EAE I EG HEE EE 

 gaameigeet or Eo ita pantie ene esate 

55 HII HEHEHE HEHEHE HEHEHE 

aie r 


T 
ebhY 127 ;ENABLE PRINT MODE. W 
.DPNT 2130 A 
DPNT: 130 ;DISABLE PRINT MODE xX 
-CPYSC 2135 } 
Bleep ee at he Ee 
* = a 
RN =h30 150 BE fe N H/SH 





a ee eee Se ee 
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“Pll L1-FEB-77 08:24 ERROR POINTER TABLE SEG 0028 
re 
1053 s3 KEAAARELASSLESSSSSSSSSALEARERRARRRSLESARAARLEHARRAALEESALE REESE 
1054 -ESCAPE CODE EQUIVALENCES AND IDENTIFIERS 
ie 3 FLERE ERASASRAARSLARERAESALESRRAASERSRRERERERSELAARAEAAE RARE ELE 
1057 000033 ESC ;PRIMARY ESCAPE CODE. 
eg 002120 porns e “i 050033 ESCAPE P 
1086 papt sd Stik 2124 
1061 O02122 000124 TSTER: 124 TEST TERMINAL(ESC 0 T) 
1062 002040 ESCYI =DCRAD sESCY I EQUALS DCRAD/DCRADI 
1063 0000S7 SH  =0000S7 *SLASH CODE FOR TERMINAL IDENT ESC. 
1064 000106 CKGP =_- = 106 ‘ENABLE REC.TO SUB 137 FROM ALL REC DATA 
1065 000107 NCKGP 2107 ‘ENABLE NORMAL RECEIVED DATA. 
1066 000171 CPABRT =171 COPIER ABORT 
1067 000172 PRABRT =172 ‘PRINTER ABORT 
1068 000170 NABRT  =170 "NO ABORT SX 
1069 o02124 O00000 IDENT: .WORD 0 VT61 IDENT CODE 
1070 002054 ESCOI =ESCO 
1071 002120 ESCPI =ESCP 
1072 002126 ESCZ2I =ESCZ 
1073 055033 -ESC2 =055033 
1074 002126 055053 ESCZ2: .WORD 0SS033 sOCTAL EQUIV. OF ESZ SEQUENCE 
1075 000122 “RESET =122 
107% 002130 000122 RESET: .WORD 122 :VT61 INITIALIZE R 
1078 002132 000033 ESCN: .WORD 000033 ESCAPE _N-FLAG 
1079 002134 O20041 ROICOO: :WORD 020041 ;ROWL COL. O 
1086 002136 032041 ROIC20: .WORD O32041 ROWO!,COLUMN 20 
1081 902140 Oe0066 R22COO: :WORD O20066 *ROW22, COL. 00 
1082 O02142 Oec0s4 RlecoO: .WORD  O200S4 *ROW 12,COLUMN 00 
1083 020067 .R23C00 =020067 
1084 002144 020067 R23C00: .WORD  O20067 ;ROW23, COL. 00 
108S 025440 .ROOCLI 
1086 O0214%% OeS440 ROOCI1: .WORD  O2S440 ROW, COL. 11 
1087 032040 .ROOC20 =032040 
1088 O021S0 032040 ROOC20: .WORD O32040 ;ROW O,COLUMN 20 
1089 002152 O24040 ROOCOS: :WORD O24040 ‘ROW O0,COLUMN 8 
1090 002154 Oe0040 CUHME: :WORD O20040 :OCTAL EQUIV. OF CURSOR HOME. 
1091 002156 O&7440 ROOC8O: [WORD 067440 ROW O, COLUMN 
1032 002160 067067 R23C78: .WORD 067067 * ROW 8, COL. 78. 
1093 000040 .ROO | -=40 ‘ROW O 
1094 000041 
1095 000054 
1096 OO0DE6 
1097 000067 
i939 eet 
1100 Bppoes 
1101 000053 
1102 000064 
1103 000065 
1104 000110 
1105 000157 
1106 





: MAINDEC-11-DZVTH-B png bt 27(1006) 11-FEB-77 08:58 PAGE 13-13 


OZVTHB.P11 11-FEB-77 


RRRRNR 
INSP 


ais 
BE 


SE ececescee ceeseeeers 


ae 


O02e3e 005037 002176 
000137 
002242 004037 


ee ee es ee ee ee ee a ee ee ee ee be he ae Be Be pe be be Be en Be Be Pe be bs bs Bo Be pe 2 ho he ee 


GRO BB VOU es Oho Ode NOh LUO DBO Lek eb Oh Los we VOU er ODS 


mr 
b 0 b= bb bb BP bP 0 0 Bb = be Bb Bb bP 0 bb = bb eb bb bP bP 0 = 0 2 Pb 2 be pe 


ERROR POINTER TABLE 


ogame ce ge gr nos aan eranmmaiany 
; ORARY STORAGE LOCATIONS 
AL RECEIVE CODE EQUIVALENCES. 
MT itiretittiiiitiitiiiitieiitititiiititttier terete 


Son =02 ist T OF MES 
=04 END OF MESSAGE 
Orr =23 : TRANSHISSION 
=21 TURN ON TRANSMISSION 
: WORD O ‘STORAGE FOR SINGLE CH. READ 
SVERI: .WORD ‘TEMP. ST Rl. 
SVERe: .WORD ‘TEMP. STORAGE Re. 
ZERO: .WORD O ‘MUST BE LEFT AS ZERO. 
TYP6: = .WORD 3000 ‘TYPE 6 OCTAL CHAR-NO ZEROS 
TSTPTR: .WORD 0 TEST POINTER IN MANUAL SELECT MODE 
MODE:  .WORD 0 ‘BYTEOSTESTING MODE, BYTEI=INTERFACE TYPE 
FTLCNT: .WORD 0 : OF INCOMPLETE XMITS. 
ALWCNT: .WORD 10 *# OF ALLOWABLE INCOMPLETE XMITS. 
ONE “WORD 1 
BuBeT: WORD 
TPREG: 0 
PRESC: .WORD PRIMARY ESC COMMAND 
ESSEQ: .WORD SEQUENCE ASSEMBLY AREA 
DLAY: WORD 
VE: WORD TEMP STORAGE FOR RO ONLY. 
VSTAT: :WORD O 
BLKM: ‘WORD 0 FLAG LOCATION FOR BLOCK MODE XMITS. 
TSTNM: :WORD O ‘DISPLAY STORAGE FOR TEST NUMBER. 


5263633 23 4 DE EE SE EE 
ser SELECTION OF UNITS. TESTS 1 THROUGH 33 WILL BE 
;REPITIVELY EXECUTED FOR ALL UNITS. 

PP tiitiiititirtiiitiitirtitttiititititiiiitiiitiiieriiri ies! 


pa CLR MODE ;ZERO THE MODE SWITCH 
JMP SETA 00 VECTOR SETUP 
AUTOA: JSR RO, TRPVEC *G0 FIND GOOD DL11 
ISR RO; CDEV ;CHECK DL11S FOUND 
ISR RO, INITA INSURE VT61S ON DLJ 
JMP MOOCK :VT61 PRESENT -BEGIN I TESTING 
BR AUTOA *NO VT61 FOUND LOOP IN CHECKING 
‘3 SKA REKARELAA REL RSSARREKA RASA AREAS RERAE KAKA REAL RRA A ASAE RLRAA HRA KE 
;MANUAL UNIT AND TEST SELECTION. UNITS CAN 
j SELECTED VIA CONSOLE OR AUTO SELECTION CAN 
UTILIZED. TESTS ENTERED VIA CONSOLE WILL 
i BE EXECUTED IN THE ORDER ENTERED. 
23 slalalalalalalaiatabalabalabalabalabaiaisiabaiaialsiaiaislaialalaleinisialsiaisiinicisinisinisisisinisisisinisicisinisieiaie 
002176 MANS: MOV #1, MODE ;SET MODE TO MANUAL SELECT. 
IMP seta ‘GO SET UP CONSTANTS 
MANSA: TYPE OMANA 
JSR RO, TRPVEC ;FIND GOOD DL11’°S 


SEG 0029 


DOS 
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1164 012 001652 MOV sINTAB, R3 
| 1165 002312 pheaos BLDADD: CLR R2 
1167 002314 004037 017536 BLDADA: JSR RO, GTNUM ;GET A KEYBOARD INPUT 
1168 20127 o00054 CMPB sR, #54 ;CHAR. = COMMA? 
1190 Bos388 O04 RO, TMNAD 
1170 D037 012214 ISR RO, THNAD aut ENTERED ADDRESS, 
1172 bossa pened BR BL LOOK FOR anoTiEh ADDRESS. 
1173 002336 120137 001754 1S: CMPB = R1,, LNFED + CHAR: = LINE FEED 
1174 Oce342 601024 BNE 3$ :NO 
1175 O0c344 TST Re ; ANY ENTRIES CREATED? 
1176 O0e3% 001413 BEQ 2$ USE AUTO SELECTION OF UNITS 
1177 002350 nee 012214 ISR RO, THNAD ives tha a NTERED ADDRESS, 
1178 posse: 19553 002170 MOV Re aG (R3)+ py TEROTRBTOR IN TABLE. 
1180 002362 004037 012376 JSR RO, COEV ; CHECK ws 1 oft VT 61 SELECTED 
1181 O23 001612 TST OL TBL ANY DL 
| HE Bees pot Se me eee oes 
; 1184 002376 ihe 012376 2$ ISR Rb. Vv CHECK” 
1185 OO0e402 004037 012754 JSR RO. INITA : VERIFY BLL HAVE VT61 ATTACHED 
1186 OO02406 000137 O02422 JMP BLOTST ‘BEGIN TEST SELECTION 
18 peat foun 017472 3$ ia RO, OCTBIN py ga ss 
1189 20 000735 BR BLOADA 
1191 OO2422 104401 023331 BLDTST: TYPE - TYPE 2ND PART OF MANUAL MESSAGE 
1192 O0e426 012703 001652 MOV kINTAB, R3 tr INTAB AS TEST # STORAGE. 
1193 OUe3e 005004 CLR RY esr Co COUNTER 
1194 oo0so002 11$: CLR Re icten WORD 
1195 002436 004037 017536 10$: JSR RO, GTNUM {GET A NUMERIC CHAR. 
113% Obese leo1e? Sy CMPB RL, #54 : CHAR. =COMMA? 
11 1006 
1198 OO24SO 110223 MOVB Re, (R3)+ Yes STORE A TEST 
1199 O024S2 005204 INC NCREMENT Test COUNT. 
1200 0020454 020437 oo0040 CMP R432 
1201 O024%60 001415 BEQ MoObCK iC ACCEPT NO MORE ENTRIES. 
1202 O0e%62 000764 BR 11$ *NO EP LOOKING 
1203 00244 120137 001754 1S: CMPB = R11, LNFED * CHAR. LINE FEED? 
1204 002470 001006 : NO 
1205 002472 110223 MOVB Re, (R3)+ LOAD THE LAS 
1206 002474 105013 CLRB ss (R43) 5 AND INSE RL Test ih SABLE TERMINATOR 
1207 002476 112737 000001 002176 MOVB 81, MODE : SET MANUAL 
1208 002504 000403 BR MODCK : AND BEGIN SHEETING. 
1210 002506 004037 017472 2s: JSR RO, OCTBIN ;CONVERT CHAR. 
tell 002512 000751 BR 10% 
1213 EER Te ROUTINE LOOKS FOR THE OPERATIONAL MODE REQUESTED AN 
1214 : THI INE LOOK THE OP RATIONAL MODE REQUESTED AND 
1216 : SEL cfelT XT aN TO BE TESTED. 
1217 ;MODE 0 = ACCEPTANCE TYPE TEST 
1218 1 = OPERATOR SELECTION OF UNITS AND SEQUENCE OF TESTS. | 
1219 ETT TT MR TVeT Iter i Teeteer et ist rte rreererrrerer ert ttt eet eter ett" 








03 | 
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D2VTHB.P11 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0031 
1 001612 001714 MODCK: MOV #OLTBL,OLTPT § ;INITIAL SETUP OF ADDRESS 
1 00155¢ 001712 sa MOV SVVECT, +VECPT ;AND VECTOR POINTERS. — 
pisres Bete CoA: YC a ‘LBA BOOBS? Reaaece SINTER 
17703 177146 MOV avECPT, R3 OAD T VECTOR POINTER 
ite ee tg Oe 
005737 002176 TST HH :CHECK MODE 
000137 od2242 GO RESTART AUTO MODE 
108777 177406 10S: iste SISTPTR MANUAL L LOOP REQUESTED? 
1 - * BR HODCK iG ecient 9 COMPLETE TEST. 
12 1 Doi 742 “ sv Ra CT STORE 
le erates Bere 014102 MOV Raa EE (R3)+ Mt up mee VEETOR 
iss reat iste eee NOV 040, (RO)? 00 SET RECEIVER PS 10 7 
1539 pose es pistes ae MOV #340, (R3)4+ ‘AND 
lea 002626 O0S046 CLR 5 ($e3 son CLEAR THE PSW,LSI11 STYLE. 
Sua aie Bes 010237 001714 100$ Roy R2 we ;SAVE ADDRESS POINTER. 
1245 O02642 012737 030511 014766 "MOV #RORLB+477,REBUF’ ;SET UP END OF BUFFER 
124% 002650 012737 031211 015274 MOV #TCRLB+477, TEBUF 
1247 002656 012737 030012 014764 MOV #RCRLB,RBBUF = ; INITIIALIZE_REC.BUFFE 
1248 002664 012737 030512 015272 MOV #TCRLB. TBBUF sINITIALT TRANSMIT BUFFER 
ies Histee Bey Slee meer a ere es 
1251 CLR R :C IT FLAG 
1252 errs pena? 8 CLR VSTAT ; CLEAR INTERRUPT FLAGS 
1253 002712 004037 O1S4S JSR 0, ZFLAG :ISSUE ESC 2 TO VTb1 
1254 002716 012637 124 MOV (SP)+, IDENT ::POP STACK INTO IDENT 
(Sep sys feos? ooel24 BPhSOtCTDENT sIF IDENT IS ~1,CLEAR IT. 
1257 002730 11S: 
S83 012637 092162 Hoy (SP +, CHRD ;;POP STACK INTO CHRD 
1259 ne it 104401 001171 TYPE  ,S$CRLF 
1260 104401 TYPE DVUNIT ISSUE UNIT UNDER TEST NESSAGE 
lebl 002746 01374 001732 MOV YRCSR, - (SP) i SAVE VRCSR FOR TYPEOU 
(1) 002752 104403 TYPOS GO TYPE--OCTAL ASC 
(1) peeves Sa ETE OG Fi TYDE Peahene 3p 
lee 002756 017746 176730 MOV BVECPT, -(SP) j SAVE avEChT FOR TYPEOUT 
(1) 002762 104403 TYPOS $5G0 =OCTAL ASCII 
tec ee 
(1) Bos7ee 000 ‘BYTE :  SUPBRESS CEADENG ZEROS 
1263 002766 013746 002124 MOV IDENT, -(SP) fire ie IDENT FOR TYPEOUT 
(1) 002772 104403 TYPOS + SPER Or TAL ASCII 
(1) 002774 BYTE 6 :: TYPE 6 DIGITS 


FOS 
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| DZVTHB.P11 =. 11-FEB-77 08:24 ERROR POINTER TABLE SEG 0022 
: 1364 mir 171 ope” OSoRLE ‘ ABORTAGE RE = URN AND LINE FEED 
| a3273? §o0001 002124 BIT ABITOO,IDENT UNIT HAVE A COPIER? 
1 Boab stn 025151 FEB, OPYR s-rssue COPIER MESSAGE 
1268 00301 032737 000002 002124 20$: BIT KEITOL, IDENT “UNIT HAVE A PRINTER? 
1583 racie§ ORB 025123 FER, TR i WPs-1SSuE PRINTER MESSAGE. 
1271 003032 062737 OO00002 001712 21$: ADD 2, VECPT LEAVE WITH WITH VECPOINT AT NEXT VECTOR. 
1272 o03040 005037 002200 CLR FILCNT OUNT OF FATAL XMITS. 
1273 012737 031214 031212 MOV ieee ore REC. DATA POINTER 
1274 052777 000100 176652 BIS SRDENA’ JVRCSR THE REC INT. ENABLE FOR TESTS 
1275 003060 105737 002176 TSTB Steck ING MODE 
1276 003064 001403 BEQ ASTAT 
1677 003066 012737 o016S2 002174 MOV SINTAB, TSTPTR fy it THE INITIAL TEST NUMBER 
| 1279 jE EE EEE HE EE ME EE EE EE EERE EERE REESE EEE 
1280 Pitititi iit iitttitiiititidatititiutttithettisid-ibkibidsishiskies 
1281 sTHIS TEST ISSUES ALL ESCAPE SEQUENCE 
1282 INSURES THE VT61 HAS NOT FAILED DURING AN 
1283 “ESC SEQUENCE BY ISSUING A ESC 2 0 EA 
1284 ‘VT61 RESPONSE. THE OF THE TEST IS TO ATTEMPT TO 
128 : ; INSURE THAT. T TESTS MILL N NOT RESULT IN 
42-4 ,  annnnndcencereneroreineSPEDeeeeSSEPESSSSSGGsESESGRRNAEEEEENOES 
1289 003074 sien 
(3) + LELKEKEKAEKEREARRRA SERA RAER SEARS RELA REAL RRRAAELAAHLA RELA ELE LEE 
(2) 003074 900004 +811: SCOPE 
(1) 003076 012737 000001 001160 #1. STIMES ;;D0 1 ITERATION 
aoe 003104 012727 003112 001106 MOV sESTST,SLPADR ;:SET SCOPE LOOP ADDRESS 
1291 003112 01 1750 ESTST: MOV POINT TO FIRST COMMAND 
{545 patie Bis5os 100 176606 BIC SRDENG QVRCSR CLEAR REC. INT. ENABLE 
1293 003124 113737 001102 002230 MOVB § $TSTNM;TSTNM | ;LOAD THE TEST NUMBER. 
1294 003132 005037 002214 CLR PRESC 
1295 003136 O0S004 CLR 
1¢) Qosise 013746 002170 cers: wy ERD. =(S) PUSH ZERO ON STACK 
1297 003144 012702 O0221 MOV #PRESC, Re SET UP ONENCE ADDRESS 
1298 003150 012103 GCMD: MOV trina kg *LOAD THE 
1299 003152 001405 BEQ 1$ IF CHAR. MUST BE XMIT TERMINATOR 
1300 003154 100535 BNI ESTEX TABLE E - EXIT TEST. 
1301 003156 120327 000004 CMPB sé, #4 IS COMMAND AC Y A DELIMITER? 
1302 003162 103442 BLO DELIM YES, GO UPDATE FUNCTI 
1303 003164 001471 BEQ SPTN ;NO, "ITS A "10" SPECIAL CASE. 
1304 003166 005704 1S: TST RY ;SEE_IF_FLAG INDICATING SEQ. 
1305 170 100472 BMI SEQ4 :4 IS SET. - YES 
1308 003176 010337 002216 2s: MOV R3, ESSEQ PUSH THE SEQUENCE TO BE TESTED 
res rages 01374 o0e216 "MOV ESSEQ, -(SP) ; PUSH ESSEQ ON STACK 
1308 003202 005704 TST RY ‘DOES TH THIS SEQUENCE REQUIRE 
1} BRR BME. ooze Bt Bhesc,-csey ABATE rac 
1312 003212 004037 013456 2S: JSR RO, TESC GO TRANSMIT THIS SEQUENCE. 
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1313 
«Pte Bese ee 
| 1316 ried eae gogosy 017224 
| ie BER Bee Bhs 
j 
| 1320 004037 015456 
i3e1 bpaoas 
(2) 903244 012637 002162 
1322 Q03es0 123/37 OUel62 002124 
| 1 ie 
{22 903260 012637 02162 
te ies Boe 
1328 003270 120327 00000! 
1329 003274 001407 
1331 003276 120327 oo0002 
1332 003302 O0INi2 
1334 003304 120327 00000 
1335 003310 001413 . 
133% 003312 000716 
1338 003314 012704 1 
1339 003320 013737 002132 o02214 
1340 003326 000710 
1342 003330 013737 002054 002214 
13 003336 aob7b4 
1345 003340 013737 002120 002214 
134g 003346 000700 
1348 003350 012704 177777 
1349 003354 000675 
1351 003356 005703 
1352 003360 001706 
13e4 posse4 © AopseS 
1355 003366 110322 
1356 003370 G0667 
1358 15660 
1359 pOa7a> BABSTy 001124 
A fe Gee Be coun 
13e2 te Phess> | Bossts 
1363 22 001402 
1364 24 000337 001126 
1 30 104001 
1366 003432 005237 oD2200 


11-FE 


ERROR 


4$: 


40S: 
S$: 


POPIT: 


DELIM: 


1$: 


es: 


3$: 


SPTN: 


SEQ4: 


TIERR: 


1$: 


Fo 
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INTER TABLE 
TST RY 
BPL 40S 
MOV #44. , DCOUNT 
JSR RO, DELAY 
TST aVRBUF 
JSR RO, ZFLAG 
MOV (SP)+, CHRD 
CMPB —s- CHRD, [DENT 
BNE TIERR 
MOV (SP)+, CHRD 
BNE 4 

ZERST 
CMPBséR3, #1 
BEQ 1$ 
CMPB =s-« R33, #BITO! 
BEQ 2s 
CMPB = séR3, #3 
BEQ 3$ 
BR GCMD 
MOV #1,R4 
MOV ESCN, PRESC 
BR GCMD 
MOV ESCO, J#PRESC 
BR GCMD 
MOV ESCP, aHPRESC 
BR GCMD 
MOV #-1,R4 
BR Gcmd 
TST 
BEQ INXMT 
MOVB RB, (R2)+ 
SWAB.Oté«érR 
MOVB ~—_ R33, (Re) + 
BR GCMD 
JSR 
MOV patst 86 DAT 
SWAB 
MOV Peceg ' on 
TSTB 3s: ESSEQ41 
BEQ 1$ 
SWAB.  SBDDAT 
ERROR 1 
INC FTLCNT 


;IN 170 SEQUENCES? 

:YES,SET UP TO DELAY 1+ SEC. 

sCLEAR ANY RECEIVE FLAGS 

; ISSUE ESC 2 SEQUENCE-GET IDENT 

; POP STACK INTO CHRD 

stave WE POPPED THE IDENT? 
NO-ERROR CONDITION 

we STACK INTO CHRD 


;GET NEXT COMMAND 


;FIRST DELIMITER - SET ESCN 
;SECOND DELIMITER - SET ESCO 


; THIRD DELIMITER - SET ESCP 


; INVALID CHARACTER - GET ANOTHER 


;SET FIRST “ated FLAG. 
INSERT ESCN 


; INSERT ESCO 
; INSERT ESCP 


;SET FLAG INDICATING 1/70 
; SEQUENCES. 


;CHECK IF COMMAND = 0 
AYES, COMPLETE SEQUENCE ASSEMBLED 
; POSITION HIGH OROER BIT 
SSEMBLE IT 
GET ANOTHER BYTE 


;AND INSERT IN ERROR 
;REASSEMBLE FAILING SEQUENCES 


; IF UPPER BYTE IS CLEAR DO NOT SWAP 


HTSEUE ERROR MESSAGE 
t TNCREMENT FATAL XMIT COUNT. 





ee eee oe ee + Ce eee eee ee 
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DZVTHB.P11  11-FEB-77 08:24 ERROR POINTER TABLE 
1367 36 023737 oO02200 o02202 CMP FTLCNT, ALWCNT 
1368 asia aca BHIS FTEXL : 

1363 003446 000704 sian BR 
(2) ieee 012637 002162 "MOV (SP)+, CHRD 


1371 003454 052777 000100 176250 FTEXI: BIS #RDENA, JVRCSR 


a 
w 
Ww 





PESEXTT XMITS EXCEEDED ALLOWED? 
;CLEAR THe STACK AND TRY ANOTHER COMMAND 


::POP STACK INTO CHRD 
‘SET THE REC. INT. ENABLE FOR TESTS 


Sella Sak ge eg eb ght bil tf ig 
;ROUTINE TO I 


He on rnc Bi 


THE RESULTING TRANSMISSION IS 


1378 CKED OF SOM 
1303 | HREERE SEE oe SERS OE ES AHHH EAE 
1381 © s REKKKEREKERHARERARRRSREARSA RARER AERA SRARAAAERARRHAAL HARK AA RLLE EE 
(2) po00004 t$t2: SCOPE 
(1) 003464 012737 oO0000S5 001160 MOV #5, STIMES :D0 5 ITERATIONS 
SB 003472 012737 003500 001105 MOV #CKMNT, SLPADR Pier SCOPE LOOP ADDRESS 
1383 003500 004037 015302 CKMNT: JSR RO, RESETV ;RESET THE UNIT AND SETMAINT. MODE. 
1384 003504 112777 OO00002 011564 MOVB SOM, aTBUFP ISSUE START OF MESSAGE. 
1385 003512 004037 016156 JSR RO, XMIT1 
| 1386 003516 113777 002126 o115S52 Move  €S¢2, aTBUFP 
1387 003524 016156 JSR RO, XMITI SEND AN IDENT REQUEST. 
1388 003530 eae 002127 011540 mMOVe &SC2+1,aTBUFP 
1389 003536 004037 016156 JSR RO, XMIT1 
1390 003542 112777 OOO004 O11S26 MOVB = #E OM, aTBUFP ; ISSUE END OF MESSAGE. 
1391 003550 004037 016156 JSR RO, XMIT1 
1392 003554 005037 002220 CLR DLAY ;SET UP SOM DELAY OF 100M.S. 
1393 003560 032737 O40000 o02224 1S: BIT #RSOM, VSTAT *RECEIVED THE START OF MESSAGE? 
i330 ppsoa? 02220 Bee OBR i YES-GO NB RUN TSMe OUT TELA 
te ee Bis! Be MS ee 
1 003576 CKEOM: MOV #50. ,R1 Y FOR M.S 
1 oo2224 1S: BIT tREOM VSTAT ecive MOE CEND OF Reeoace? 
Het GEIS SP ong, cures BY Ang ier eee. 
1 poses Boso37 17162 JSR RA’ BEL Y 
1403 003624 1 DEC Rl ;AND KEEP LOOKING. 
1404 003626 001365 BNE 1$ 
1405 003630 37 O40000 O02224 10%: &BIT #RSOM, VSTAT ;RECEIVED SOM? 
1406 003% 1404 BEQ ‘NO ISSUE ERROR 
140? o20000 002224 BIT aREOM, VSTAT sRECEIVED VED COM? isd 
1 pose WEEE 006001 901124 2s: MOV #6001 , SGDDAT a) ERROR WITH EXPECTED 
410 003656 013737 O02224 001126 MOV VSTAT,SBDDAT | ;AND ACTUAL STATUS. 
1411 003664 104022 ERROR 22 
1413 003666 000240 pth 
1414 NT TT ee TeeT INSURES THAT THE CURSOR MILL RESPOMD 
1415 THE CURSOR WILL 
1419 10 IRE t or eTeD ir iot ‘UNIT 1S C Rese! 1S THEN MOVED 
1418 :T0 ia9h ie NBR e COLUMN 80 AND THE post tion 135 AGAIN 


SEG 0034 
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DZVTHB.P11  11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0035 
1419 ;VERIFIED. ERRORS ARE REPORTED IF THE POSITIONS ARE INCORRECT. 
iis) 2 5 REAAAEAALARELEA REAR EAE ERAA AREA EE RERALA ERE S LARA A ARERR ERELAR ARES 
i423 
i 7 ° Pao eranapenaneereer irmcepscemengnrer rage? 

(1) Bpsee 012737 OO000S 001160 "MOV 4S STINES $100, S ITERATIONS 
a 1) 003700 012737 003706 001106 MOV sCURSI, $L “SET SCOPE LOOP ADDRESS 

142% 003708 013701 15272 CURSI: Hoy TBBUF Bl sUSE Ri AS xMIT BRO HET FOR HO, 
1428 ppaste ees BisaeK MOV a inl 7 TE NTT AD CURSOR 

1429 003722 113721 o020S0 MOVB pa TION CURSOR LE 

1430 003726 012737 000003 015300 MOV #3 a neNT ‘XMIT 3 BYTES 

14 ? R T 5 

ie Garay eases 5708 a a eae 

1434 003742 104011 ERROR Ht j TRANSHISSION CAUSED VTb1 TO FAIL/HANG 
1436 OO oue Gisrai 930012 10S: Hoy fémg, Ry ia TEC CURRENT CURSOR POSITION. 
14 1 : 
14 Bose ER ene OR 8 VES 5 Rey MESSAGE 
1440 003762 013746 002154 MOV CUHME , - (SP) : CUHME ON STACK 

iw 003766 004037 016346 JSR RO, CURER i bo LOAD AND ISSUE CURSOR ERROR 
1443 13701 2 1S: MOV TBBUF ,R1 LOAD XMIT BUFFER WITH 
tu4a bOSrre OLazet 5 NOY DERAD' CRI) 
1445 O04002 013721 O0e042 MOY R23C79, (R1)+  ;CURSOR TO ROW 23,COL.79 
1446 OO4006 01372 002054 MOV ESCOr, (R1)+ READ CURSOR POSITION 
1447 004012 013721 002050 MOV RDCUR’ (R1)+ IT AND CURSOR R 
Bae bes hee | Raine 

1450 004030 o00402 BR 20$ : an 
1451 004032 104011 ERROR il TRANSAT ag tON CAUSED VTb1 TO FAIL/HANS 
1453 BosOse ie Bi o7he 030012 20$: MOV #RCRLB,R1 

1455 oo4042 023711 oo2042 cHP R23C79, (RI) ;CHECK CURSOR POSITION TO LOWER RT. 
1457 ane iovo12 ERROR le *VT61 FAILURE MESSAGE 

1458 13746 o02042 MOV R23C79,-(SP)  };PUSH R23C79 ON STACK 

1459 OO405e 004037 016346 2: ISR RO, CURER :LOAD AND ISSUE CURSOR ERROR . 

161 PPMMINUN ROUTINE TO INGURE THE UNIT CAN ENTER LINEAR AODRESSING 
1463 HO OoHBRBETERS. 10 THE UNIT TT UWOER Te TEST 
1464 TORT CORCOR Poe TT ion 1e°READ AND RUST BE 1,COL.0. 
ths , , teeusubuctoucctucusnsssaussesssessensacesesensssecsessaesssse04 
2; sf 00 ; Osama" ieeuemaaremmcar reign im cate paneer toler rnrtan ey 9 
(1) OO4066 eae oroo0s 001160 "MOV #S, STIMES ::D0 5S ITERATIONS 

i } 004074 012737 OO4i02 001106 MOV #CKLIN,SLPADR ::SET SCOPE LOOP ADDRESS 





i kr ne 
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DZVTHB.P11 11-FEB-77 ERROR POINTER TABLE SEQ 0036 
/ 1469 004102 004037 015302 CKLIN: JSR RO, RESETV ;RESET THE UNIT-SET MAINT AND LINEAR MODES 
ise at Alray Redlep ae oc 
Ise tf 4 J R r cbc sLOAD XMIT BUFFER WITH 80 CHAR AND 
4 + 
1474 ise iaest aaa MOV Arai) (RL) READ CURSOR POSINION. 
1475 att 012737 000123 015300 MOV #83. , XMCNT 
147% oo4140 004037 015702 JSR RO, XAREC :XMIT THE BUFFER. 
1478 Spa iue 104011 ERROR 11 sLAST xT CAUSED UNIT TO HANG. 
1479 004150 O00421 BR LINXT EXIT 
1480 OO4152 023777 002134 O10604 1S: CMP RO1COO, JRBBUF FEURSOR SAT ROW1,COL. 0? 
1481 160 0014 BEQ T : YES-EXIT 
is Bie fae panes course pton 
1464 004174 013737 OO2010 001126 HOV DRECT,SBDDAT § ; ISSUE ESC SEQUENCE AND CURSOR 
14 nated yea 002134 MOV koicoo -(SP)  ;;PUSH ROICOO ON STACK 
1487 004210 004037 016346 JSR RO, CURER 
1488 004214 oo00e40 LINXT: NOP 
4 
1431 H;MENNNS TEST 10, INSURE OPERATION OF XON/xOFF COMMANDS. =O 
i Tease ki CONE THe STL OCI DATO ATER SENSING Te TL 
1495 te Pi og 75 POR THE TRANSHIT ROE RTeN AND 
1496 ; . TRANSFER TIME HAS MOP APSED. 
1497 :INS Res Kon Oc 
Ae gs wit emma eamacpaantated. web imscoet 
i” Og gee nae epee re: 
(1) BOi538 ieee 000010 001160 MOV #10, STIMES $300, 19. ITERATIONS 
1553 rae Ra ta —— BASC3 NOV span’ x ene rai TXT BUFFER BBORESS. 
teps ppaSag piso ata 002226 * MOV #10 01, BLK i TO XMIT A -DATA- EOM. 
toon sce poueay Gieone cue RESET THE UNIT AND WAIT FOR XON 
1epe | Bousee { nou RO, AESETY ee 
1506 OO04262 013721 O02144 MOV R23C00,(R1)+  ;CURSOR TO ROW 23, COL.O 
1507 13721 4 MOV ait (BLD + 
1508 : HOV AL, ¢ ; TRANSMIT THE LINE. 
1510 004302 004037 017226 JSR RO a ;40 CHAR. OF INCREMENTING CHAR. 
1B1 004306 O1e?37 900057 015300 MOV #47. XMCN SET UP TO XMIT 47 BYTES 
1512 004314 100 175414 BIS aTENAg QVXCSR =: TRANSMIT ENABLES 
iel3 Soaaoe Tes cere 017224 25 NOY ¥ SMAKINUA DELAY E eit 
1615 bo4334 Bosc37 017162 : JSR fGen DELAY FOR 10 MILLISEC. 
151 100006 o02224 BIT BRKOFE YSTAT :CHECK FOR 
Bt nee solar, BNE ee R23 IH}S SECTION. 
: i 4 : 1 ERROR 12 en EE LOOKING FoR Me ScACE 
125) Bovsee ds274€ 100000 ERGO? EF oa000,-:sp) i SBNER aiboBAo On Stack 





_— ee ee 
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HB.P1l  11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0037 
is GPE 004037 O1SS16 - JSR RO, CKSFT GO REPORT ERROR 
(2) 366 01274 000001 ; MOV #XMDNE , - (SP) ; PUSH SXMONE ON STACK 
1528 004372 01274 O0006e2 MOV #50. ,-{SP) PUSH #50. ON STACK 
185 Beoaty ap BO Wi8e ' \TIMEOUT-EXIT TEST. 
1 127727 Oe4602 000021 CMPB  - SABUFP, #XON ‘RECEIVED A XON? 
1528 oo44i2 001405 BEQ EXIT3 :YES-NO ERROR- 
ie BBG ssn SI Booos,-cse» [SRE nth SRE 
1532 oo4422 015516 JSR RO, CKSFT a 
1533 004426 004037 O1 EXIT3: JSR RO; RESPTR RESET INTERRUPT POINTERS. 
1S35 EE TT MUTINE TO VERIFY OPERATION OF XOFF AND XON TO THE VTE1_ 
1536 a re TO VERIFY VTb1. 
1537 iA fbb TRS | NETTIE} TIA é "BER ES XOFF AND 
1 S ON RESTART 
t F Te ENBEB WHEN EON oP 204, fe 
1eM1 “samt SSE ERE Ee EST 
is : 62 Speer peer 
(1) 012737 000001 001160 “MOV #1 sree $300, 1 ITERATION 
(1) 01 001106 MOV #ONOF61 ::SET SCOPE LOOP ADDRESS 


ONOF61: JSR rv ;RESET T IT AND WAIT FOR XON. 
Wanted o0222e4 is ae + de : CLEAR THE FLAGS 


010476 ONOFA: MOVB axon i 


ae 
ne 


004432 00004 
004434 

1 — 

1 

tse Bwiey here? 002170 ZERO, -t ZERO ON STAC 

1 1 XHTAL.-(SP) i XNTAL ON STACK 

18 ones piri MOV ESCO, -(SP) : ESCO ON STACK 

1eey Ms oA 017224 ONOFLP ao RO, TESC T 00 M.S. FOR OPERATION 

jee netsh rete yea * JSR Ro orev ‘T LA oth Sr 

1553 004514 112777 000023 o105S4 mMOVe = sXxOFF, aTBUFP 

1554 004522 004037 016156 JSR RO. XMIT1 SEND A XOFF TO VT61. 

leee Bouess BtSope NOY RBUFPR 

1 1 lel OFFLP: MOV RS ALLOW 300M.S. FOR XMIT TO CEASE 

1557 004536 012737 000001 017224 MOV #1, OCOUNT 

1558 OO4S44 004037 017162 ISR RO DELAY 

t2e4 rite ate SFO Bete ;XMIT STOPPED-GO RESTART IT. 

eps ie Oe OF QUAL 300 MS-LOOP 

1eE5 ite poise oo22e4 001120 MOV VSTAT, SGDADR iat nIY Pio Ho RESPOND TO XOFF 

1 004570 104015 ERROR 1 

1 

1 : JSR ;SEND A XON TO THE VT61. 

1 004604 012704 MOV Ro MA ‘SET UP FOR 300MS DELAY. 

1569 004610 002224 ONLP: BIT sarOn VSTAT *EOM RECEIVED? 

127) Bosse Bt 031212 HOV GnOPAt sYES-EXI 

1572 004624 012737 Ol 017224 MOV #1, DCOUNT 

1573 004632 004037 017162 JSR RO, DELAY ALLOW 300 MS FOR XMIT TO RESTART 
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D2VTHB.P11 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0038 
1574 004636 923705 031212 CMP ABUFP, RS 
| 1575 OoveHe 1317 BNE ONOFLP ;IT RESTARTED-GO STOP IT. 
| 1576 44 DEC = sR 
1577 004646 001360 BNE ONLP T 300 MS LOOP. 
1578 OO46S0 013737 002224 001120 MOV VSTAT, SGDADR RMIT IT NOT RESTART- ISSUE 
1579 004656 104016 ERROR 16 ‘ERROR AND EXIT 
1580 O04660 O00240 ONOFXT: NOP 


1581 
; LERAAALAAELLALLALLR ALLER REGGE REE EEE EERE EEE EEE REE EE EERE EE 

1583 sROUTINE TO TEST VT61 RAM AND THE COMMUNICATION ATHS 

1584 sTHIS ROUTINE ISSUES A SERIES OF PATTERNS (77/100 09, 190/77 

1585 ING, AND REV. VIDEO INCREMENTING THE VT61. 


res es DainoTS Gebcrgo io" ACL a Ae 


1588 
1589 i AITIED. The HOST ¢ "COPPUTER ARO TH THE RESULTS ARE CHECKED AND 
i2ah —sexuenitak ERORSCINCLUDING, TRAMEMISSTON) REPORTED 
ae] OO4662 oo0004 cease epeeeesanneeeeceanneeeeeesaaneeeeeansnceneenasaaioeeet 
(1) OO4664 012737 000001 001160 "MOV #1, STIMES $10, 1 ITERATION 

net) 004672 012737 004700 001106 MOV #MEM1, SLPADR :SET SCOPE LOOP ADDRESS 

1595 904700 004037 015302 MEMI: ISR RO, RESETV sRESET TH UNIT oft AIT FOR XON. 
1597 0706 OIE gosu14 MEMA: HOV MPATT (RS) ,R4 LORD Pa TE TO BE TRANSMMITTED 
1599 00471 pasea9 bees 002224 BIC #77577, VSTAT ; CLEAR ALL FLAGS BUT XOFF AND XMKIL 
1600 004724 012702 003600 MOV #TOTCH: R2 ‘LOAD A NT OF SCREEN 

1601 004730 112777 OO00002 010340 MOVB SOM atBUFP ‘ISSUE START OF MESSAGE. 

1 004736 004037 O16156 JSR RO, XMIT1 

1603 OO4742 005302 MEMB: DEC R2 ; DECREMENT xMIT COUNT 

1604 004744 001414 BEQ 10$ :COUNT = ZERO 

1606 00474 004037 005362 128: JSR RO, PATGN jNO-GENERATE NEXT BYTE TO XMIT. 
1eb8 DEM?EE boNGS? DLETeE Me OROMETL ORO ATT MOTHER Bvt 

1609 Opa 7eS po 3033 ea 002202 CMP FTLCNT, ALWCNT ; EXCEEDED FATAL COUNT? 

tel) pour72 ObB1a? 005434 OPER Pe Ch ABORT TESTE MMNONISSION REQUIRED. 
1612 004776 112777 OOO004 010272 10S: # MOVB  8€0M, aTBUFP *ISSUE END OF MESSAGE. 

1613 OOSO004 004037 016156 JSR RO, XMIT1 

1614 005010 004037 016266 JSR RO, RESPTR ;RESET INTERRUPT POINTERS. 

1616 005014 013701 015272 MOV TBBUF ,R1 ;LOAD XMIT BUFFER WITH 

1618 Opened 013721 001762 

1619 005030 1a7et 002126 

1620 005034 013721 Oo0c0S4 

bel ONS040 17et O0e05b 

1653 peepee Bises> BoAGTO o1s300 

ie Seoee DEDEE Boones i 

1626 005064 104011 





eee ee eee we ee 
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| DZVTHB.P11 = «11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0039 
5 T “EXIT TEST 
152 ai aid 077577 002224 1S: IC 57677, VSTAT : Me bel FLAGS BUT XOFF AND XMKIL 
1629 ooso0e2 a cLR Re veces a ;CLEAR RECEIVE COUNTER. 
ie Beet Ba pies 1012 Nov #TCRLB+300,R3 i O80 STORAGE 
l 005110 013701 014764 MOV RBBUF , R1 -SET UP RECEIVE POINTER 
1633 114 005037 002220 MEMC: CLR DLAY : SET uP TIN OUT DELAY 
1634 120 013737 014764 014770 MOV RBBUF , RBUFP * RESE VE POINTER 
1635 126 1 014770 1S: CMP RBUFP; RI *RECET ? 
1e37 DOSE Goere? 20000 002224 oe eT star SHREK RECEIVED EOM? 
1638 make ata aed a Bar” iYES, CHEE DATA ERRORS 
1640 Spel Goraee pre 3 NOT EOF LOOKING. 
1641 005152 002200 INC FTLCNT ; TRANSMISSION FAILED-INCR. FATAL COUNT 
ibe 005156 ERROR ue 
1644 eegt® MEMD: FR Me ;DATA_ IN. INCREMENT COUNTER 
eae de EAT" cL CENG GOB rad ** 
t= e e : 
185 pee 70 i f + FOeBO NOT MODIFY 
1648 005176 BIS #81707, R4 *YES-FORCE BIT 7. 
{eed SpeSea a (BLD Re eaplamalarag se 
1651 CMP Ro, STOTCH ;COMPARING LAST CHAR? 
eS reste BEQ MEMC :YES-NEVER COUNT AS A ERROR. 
y CMP R3,#TCRLB+3S50 =; ST ERRORS? 
Goeed BHIS ReAe Yes STORE NO MORE. 
ar SS TORE THE GRO DATA 
52% MOV (R3)+ TORE THE RECEIVE COUNT. 


BR 
CKDAT: CMP #TCRLB+300,R3 


2 
MOV aT +300,R1 ;LOAD FIRST ERROR ADDRESS. 
CLREG inom ERROR pestetens 


RO 
MO (RI)+,$GDDAT 
MO (R1)3° SSDDAT it OAD THE BUFF 
LOAD RECEIVE COUNT 


ASARAU AAAS AAAS 


005260 Olei MCV (R1)+,$GDADR ; 
005264 104004 ERROR 4 * ISSUE DATA ERROR MESSAGE. 
Oosebb G20} CMP R1,R3 715 ALL ERRORS? 
i bb8 1 BLO 1$ : NO-CONT INUE 
1671 020227 003600 CKMEM: CMP Re, #TOTCH ;DID WE XFER 1920 TIMES? , 
1672 ieee 001406 BEQ 1$ “YES - GO CHECK STAT 
1673 005300 012737 003600 001124 MOV #TOTCH, SGDDAT NO, PUT GOOD COUNT IN GDDAT 
1674 005306 010237 001126 MOV —- Re, SBDDAT ;AND ACTUAL COUNT IN BDDAT 
1675 005312 ERROR ISSUE COUNT ERROR. 
1677 14 1S: 
(2) 14 012746 060000 MOV #60000,-(SP)  ;;PUSH #60000 ON STACK 
1678 004037 015516 JSR RC, CKSFT 
1679 005324 ADD we Ro : INCRENENT PATTERN POINTER 
1680 414 ; TS MPATT (RS) :TEST NEXT PATTERN 
1681 005334 001437 | BEQ MEMXT :ZERO-END OF TEST EXIT. 


—— eee -——_— 





: 


ae 
eis mie 


ane aes 


Bins 


005414 
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112 


Bb iBe 
002226 


002224 
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ERROR POINTER TABLE 


2s: 
PATGN: 


1$: 


es: 
MPATT 


’ SETREV: 


MEMXT: 


24 

#10,RS 

os TREV,R3 
ABC Batt 


#200,R4 


RY, #177 
MPATT(RS) ,R4Y 
RO 


037500 


pete €. 
es 
100040 
00040 


;NOT apacn ay PATTERN. 
iSET REVERSE VIDEO? 


ae Re-TeSUE INGREMENTING PATTERN. 
NOT ZERO, GO EXERCISE IT. 


CLEAR REV. VIDEO BIT IF SET. 
‘CHECK RY FOR PATTERN 

‘TF MINUS, DO INCREMENTING. 
;07 THERWISE SWAP BYTES AND 


XIT. 
‘ADD ONE TO INCREMENTING 
iHAVE EXCEEDED LIMIT 
es, RESET PATTERN AND 


; PATTERN 77 Xi 


tien Herons = 


SEQUENCE TO ENTER REVEREE” VIDEO. 


‘BYTE 
NOP 


-ESC,.0, .EEMP,0 


5 ESE EE EE EE EE EE 


{BNO TRANSHI Parrett i! Riera ARO RECEIVED 


spaTA. 


REOEST 
CA 


w aUBtEST A 


TES WEL REE ok 
1 SHEeKSin, Pr UTILIZING THe OF DATE Show 70 THe THE VT61 


eet A, DURING 


TING A CALCULATED 
SCAPE SE E 


QUENC 
i at THE END_OF 
TO iy * 


TeaNGrTTED.” 


ce aR PR A AO RS ft 


tét10 


CKSUMA: 


stkSUnA, SLPAOR 


eer ee RR TT 


ee a ADDRESS 
RESET. TH THE UNIT AND WAIT FOR XON. 


iy A at eee -DATA- EOM. 
Rese INTERRUPT 
;DIS. RECT. MODE AND CLEAR CHECKSUM 


i CLEAR ALL FLAGS BUT XOFF AND XMKIL 
;LOAD XMIT BUFFER WITH 





SEQ 0040 


04 
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| D2VTHB.P11 © 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0041 
| 4734 012703 73 MOV #315. ,R3 
| 41735 17226 JSR RO, BLOINC :314 INCREMENTING CHAR. 
| 173% eit 132 OVE EStN, (RI) 
1 113721 O01 MOVB 40M? (R1)+ ;CURSOR HOME 
1738 113721 nove SCO’ (R1)+ 
1739 113721 SCO+1, (R1)+ 
1740 13711 002072 MOVE XRCK, (R1) ; TRANSMIT RECEIVER CHECKSUM. 
1741 CLR RY “CLEAR CHECKSUM REGISTER 
1?¥e 012708 MOV 8EOM. RS *PRELOAD CHECKSUM REG. WITH 
1 eee JSR RO, CALCK *EOM FROM PRIOR XMIT. 
1744 002224 BIS #CKSUM, VSTAT iRE T CHECKSUM CALCULATIONS. 
1745 peers 015300 MOV 8320. , XMCNT : Tae XMIT 320 BYTES 
17 o5e777 000100 174132 BIS 8TENA,aVXCSR =; ENABLE XMIT INTERRUPTS 
174 1274 O20000 MOV SREOM, -(SP) ?;PUSH #REOM ON STACK 
1748 Ole7He 000012 MOV #10. .-(SP) *:PUSH 810. ON STACK 
1749 020620 JSR ut *LOOK FOR EOM 
1750 005620 000534 CKEXT "ERROR EXIT IF NOT FOUND 
1751 O0S622 127704 007136 CMPB , ‘COMPARE CHECK 
1752 005626 001414 BEQ K :GO0D GO TO SUBTEST B 
1753 005630 004037 015660 ISR RO, CLREG BAD COMPARE 
1754 005634 110437 001124 MOVB SGDDAT ; LORD LOAO CAL CULATED CHECKSUM 
1755 OOS640 ies 007120 001126 MOVE  @RBBUF, SEDDAT IVER CHECKSUM 
1756 00564 104013 ERROR 13 + TouE ERROR 
1 005650 012746 060001 MOV #60001,-(SP) ; PUSH #60001 ON STACK 
1758 005654 004037 015516 JSR RO, CKSFT ERROR 
1760 O0S660 042737 077577 O0e224 CKSUMB: BIC 877577, VSTAT ern a hoes Wet at ee ea 
1761 005666 O0S004 CLR RY CLEAR CHECKSUM REGISTER 
1762 005670 012737 001001 OoO2226 #1001, BLKM ‘SET UP TO XAIT A SOM -DATA- EOM. 
1763 005676 052737 000100 O022°4 BIS STXSUM,VSTAT | ;SET UP FOR XMIT CHECKSUM GENERATION. 
1764 005704 013701 015272 nov TBBUF Rl “LOAD XMIT BUFFER | ITH 
1765 005710 004037 017714 JSR LDBUF LOAD THE BUFFER WITH 
1766 boe714 033 117 134 BYTE RESC. .0, .CLTCK, tse. .0,.XMTAL, .ESC, ‘0, . TXTCK,0 
005722 033 117 136 
1767 BOSE 012737 000011 015300 MOV #9. , XMCNT SET UP TO XMIT 9 BYTES 
1768 005734 052777 000100 173774 BIS #TENA,aVXCSR = ;ALLOW XMIT INTERRUPTS 
1769 005742 012746 000001 MOV #XMONE . - (SP) *:PUSH #XMDNE ON STACK 
1770 005746 012746 o00002 #2,-(SP) *:PUSH #2 ON STACK 
1771 005752 004037 O20620 JSR RO; WTBGND (OOK FOR XMIT DONE. 
1772 005756 boss BR EXT :TIME OUT - EXIT TEST 
1773 005760 002220 CKSRC: CLR *SET UP TIME OUT DELAY 
1774 005764 013702 O3iele MOV ABUFP, Re ;RESET THE RECEIVER FLAG 
1775 023702 O3lele 1S: CMP ABUFP’ Re *RECEIVED A CHAR? 
1776 005774 001007 BNE *YES-GO CHECK IT. 
1777 005776 005337 002220 DEC DLAY RUN TIME OUT DELAY. 
1779 etre 002200 INC FTLCNT TIMED OUT-INCREMENT FATAL XMIT COUNT 
1780 O06010 104011 ERROR 11 ISSUE HUNG MESSAGE AND EXIT. 
1781 006012 000437 BR CKEXT 
1782 O06014 126777 000004 023170 2S: CMPB  =s- #EOM. SABLUFP sRECEIVED EOM CHAR? 
1783 006022 001356 BNE KSRC 
1784 006024 042737 o20000 on2224 BIC #REOM, VSTAT ;CLEAR THE EOM F 
1785 006032 37 Oe0000 O022e4 BIT wREOM, v§TAT ‘NOW WAIT FOR Last. EOM FLAG 
1786 OO6040 001774 BEQ "FROM XMIT TRANSMITTER CHECKSUM. 





_ 


CO4 
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D2VTHB.P11 11-FEB-77 08:24 ERROR POINTER TABLE SEG O042 
i787 006042 120477 006716 CMPB s-aRX4, BRBBUF ;COMPARE 61 TO HOST CHECKSUM. 
1788 006046 001421 BEQ CKEXT ‘EQUAL - EXIT TEST 
1789 006050 015660 JSR RO, CLREG 
1790 Sob0S4 110437 001124 MOVB = RY SGDDAT sLOAD THE HOST CALCULATED CHECKSUM 
1791 117737 006700 001126 MOVE  @RABUF, SBDDAT ir OAD THE VT61 TRANSIT TTED CHECKSUM 
1792 006066 104014 ERROR 14 ISSUE VT61 XMIT CHECKSUM ERROR 
1793 006070 012746 060001 MOV #60001,-(SP) § ;:PUSH 1 ON STACK 
1794 008074 004037 015516 JSR RO, CKSFT CHECK FOR STATUS ERROR 
1735 006100 OO0404 BR CKEXT 
1797 006102 033 117 103 ITSUMA: .BYTE .ESC,.0,.DRECT,.ESC,.0,.CLRCK,0,0 

006105 033 117 133 
ail 006110 000 000 
1799 006112 004037 016266 CKEXT: JSR RO, RESPTR 
1801 33 SFEKEKEES EL LEER EESSESHEK ERS SER SERERSE LASALLE RE RAR KKH SLAF LER EE SESE 
ae Recut IN ; C hte ROVERENT. COMMANDS 
1804 te tesieD in Se Sorence r: QUENCE: RESET ESET, CURSOR RIGHT. 
180 Sse Pet Grete" tet ISSUED AFTER EVERY 
1807 CURSOR CORREND BND CURRENT IS COMPARED TO GOOD 
1 ,  annunndereeronasesstPbryereees SREAEEEEAAEAOREREEEEEEEEERHHHOES 
1811 © LESRKEREEREREREEEERRR REESE SEAR AA RR RERERE RRL ARARARE LR RLERHRA LHL 
(2) 006116 o00004 tST11: SCOPE 
(1) 006120 012737 001160 MOV #5 STINES nn 5300.5 ITERATIONS 
if 006126 012737 006134 001106 MOV #CURSIA, -:SET SCOPE LOOP ADDRESS 
1813 006134 013701 015272 CURSIA: MOV TBBUF ,R1 ;LOAD XMIT BUFFER ADDRESS 
1814 006140 004037 015302 JSR RO, RESETV ‘RESET THE UNIT AND MATT FOR XON. 
1815 OO06144 004037 017714 SR RO; LOBUF LOAD THE BUFFER 
1816 006150 033 103 033 BYTE .ESC,.CRT,.ESC, br RD CUR. ESC, eoOWN Nise 
006153 117 131 033 
006156 102 033 
1817 006160 117 131 033 -BYTE .0,.RDCUR,.ESC,.CLFT,.ESC,.0,.ROCUR 
006163 104 033 117 
006166 131 
1818 006167 033 101 033 .BYTE .ESC,.CUP,.ESC,.0,.ROCUR, .BEL,O 
iA aes 
1819 006176 012737 000024 015300 MOV ; ;SET TO XMIT 20 CHARACTERS 
1820 O06204 012737 000004 016150 MOV #4. RECITT “SET RECEIVE ITERATION TO 4 
1821 006212 012737 030612 016152 MOV #TCRLB+100,WOSTOR; SET UP WORD STORAGE POINTER 
1822 ees 004037 015702 JSR XMRE ;XMIT ,AND WAIT FOR REC 
1823 006224 000402 § *NORMAL EXIT 
1824 104011 ERROR 11 ‘LAST XMIT CAUSED VT61 TO HANG 
1825 006230 000436 BR CURLXT EXIT TEST 
1826 O06232 012701 006316 11$: MOV SGDCURP, RI *R1=GOOD POSITION TABLE 
1827 006203% O01 030612 MOV § #TCRLB+100,R2  ;R2=ACTUAL CURSOR POSITION 
1Be8 006242 O01 001764 MOV #CRT,R3 *R3=CURSOR COMMAND TABLE 
1830 O0624% 021112 12S: CMP (R1), (R2) “COMPARE GOOD TO ACTUAL 
1831 O06eS0 O01415 BEQ 25 :OK-GO UPDATE POINTERS. 
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| OZVTHB.P11 =. 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0042 
| 1832 006252 113737 002132 001125 MOVB - ESCN, SGDDAT+1 
| 0011 MOVB = (R3) $cDDAT ;LOAD COMMAND IN ESC ERROR 
1 DO11 CLR $800A 
1 104001 ERROR 1 sAND ISSUE IT 
ae tee line “mo my (RTA ecu goo 
' Pp = —s ee y 
1838 ected 016346 JSR RO, CURER + OBB AND ISSUE CURSRO ERROR MESSAGE 
1B40 DOe30e | Geea37 001772 as: eRe ce Cree POSLTON DOINTENS 
ie l ae BNE 158 : kot AT Amit ° OR- COMPARE AGAIN 
1e42 006314 O00404 BR CURLXT ‘EXIT TEST 
1844 
1 1 GDCURP: .WORD 20440 sROW O, COL. 1 
tBue ppp sis rae “WORD 20441 ‘ROW 1; COL. 1 
1847 006322 Oc0041 .WORD 20041 ‘ROW 1, COL. O 
1848 006324 O20040 .WORD 20040 ‘ROW O, COL. O 
1843 006326 O00240 CURIXT: NOP 
1851 33 SLEKERHAAAAASS SSAA AKA RARER ERRESSRREERLRLAAARALERHREHRA EAA E KEES 
18S2 sROUTINE TO INSURE THAT READ CHARAC 
1853 ‘FUNCTIONS CORRECTLY. COMMAND SEQUENCE IS: RESET, A, CURSOR 
1854 LEFT AT CURSOR. 
1855 ‘AN ERROR IS REPORTED IF THE LAST READ IS NOT AN “A”. 
1638 Ariririiiiitiitiriti tt itititiiiititiiiiititititiiirererirgos 
1858 os SESKEREKERELESRRERSERSEESR RARE REL AARHLERAERELERAARERA RRA AARAA REALE 
(2) 006330 oo0004 téT12: SCOPE 
(1) 006332 012737 oOO000S 001160 MOV #5, STIMES ;;D0 5 ITERATIONS 
nee) 006340 012737 006346 001106 MOV sCURSIB,SLPADR ;;SET SCOPE LOOP ADDRESS 
ieee piaras teers —_— " . RO RESET RESET THE UNIT AND WAIT FOR XON 
1Bes BBesee Bio9s; Bbaiae ORR CRIS. «=i 
1863 006362 113721 002132 MOVB ESCN, (R1)+ 
1864 13721 770 MOVB  CLFT.(R1)+ ;CURSOR LEFT 
1865 13721 4 MOV Estat 1)+ 
1 13711 4 MOV UCH’ (R1) ; TRANSMIT CH. AT CURSOR 
1867 012737 000006 015300 MOV #6, XMCNT :SET UP TO XMIT 6 CHARACTERS 
1868 OoeiG 015702 JSR RO, XMREC :XMIT STRING AND WAIT FOR EOM. 
1870 006416 104011 ERROR 11 iLAST XMIT CAUSED VT61 TO HANG/FAIL 
1 pes 0039 006336 000101 10S: BReg SRSBUF , #101 i RMARACT R READ=A 
1873 006430 001424 Be sae BEQ 2$ / *YES-NEXT SUBTEST 
1 edt ie Il Banat ee ;REASSEMBLE ESC DATA 
ioe 1 po20E4 001127 sb TRyCH SBODAT#1 LOAD FAILING ESC SEQUENCE 
1 netics ta081 ERROR WE ‘AND ISSUE IT 
1879 O06460 004037 01 JSR RO, CLREG 
1880 OO06464 112737 000101 001124 MOVB #101, SGDDAT ;LOAD GOOD CH. AND CH. 
1881 O06472 1177 001126 MOVE § @RBBUF, SBDDAT 
188 006500 1 ERROR 4 ;READ AND ISSUE THEM. 
1884 06502 oD0240 23: NOP sEND OF TEST 
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DZVTHB.P11 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0044 
1885 5B EEE 38 9 EE 9 9 dE a 
;ROUTINE TO VERIFY OPERA ae Pp Be et 
1887 INITIALLY ROW O IS WRITTEN TO 80 I 


5 ON THE F rece TER 1S REPLACED 
HORE AND, THE He CHAR BY ROM, ct. (172) AND ROW Ph Ta 


6 i eae Ba BHT oa nine Ts. vERTFIEB. Rs ROWD. EOLO 


Merrie rin tit i eeenrenrens 


Besees 






| 
| 
| 183 
| 1895 IE, LETTE TOE AS AE 
(2) 006504 o00004 +8713: SCOPE 
| (1) 006506 6012737 OO000S 001160 MOV STINES op :1D0,5 ITERATIONS 
| i 006514 012737 O06S22 001106 MOV TARP SL “SET SCOPE LOOP ADDRESS 
1897 004037 015302 INRPL: JSR RO, RESETV aut THE UNIT 
1898 13701 015272 MOV TBBUF , Rl 
1 1 INC R1 ;LEAVE ROOM _IN BUFFER FOR SOM. 
1900 1 000120 MOV #80. ,R3 !CREATE A LINE OF 80 INCREMENT ING 
1901 004037 017226 JSR RO, BLDINC CHAR. ON THE SCREEN. 
1992 105011 CLRB 3s CRI) 
1903 13703 015272 MOV TBBUF 
1904 pianos 016226 JSR RO, BeUOKnTT 
ope eae 16150 INAG se i pe uP te RECEIVES CHAR 
1309 Nee Bs? ie pieteg 2 nov HEIN, BYSTOR ecF Mz YF oases AREA. 
1909 Boagae ited JSR eet -LOAD THE BUFFER WITH: 
1910 033 110 172 BYTE A0,L .CHOM, 172, .ESC, .CHOM, .ESC, .0, . TCUCH 
ee ie ae 
1911 033 102 033 .BYTE  .ESC,.CDWN,.ESC,.0,.TCUCH,O 
? 27 000 
191 poodis 015300 MOV #13. , XMCNT ;SET UP TO XMIT 13 CAHR. 
1313 015702 JSR RO, XAREC 
191 Na RROR WA ATT causeD UNIT TO HANG. 
ile hate hext pest Pet 
1917 026537 006720 030712 1S: CMP TDATA(RS), TORLB+200 COMPARE gooD TO REC.DATA. 
1918 001407 BEQ GOOD-LOOP OR EXIT 
1919 1 006712 001126 MOV TFUNCT(RS) senate? 
1920 1 002120 001124 MOV ESCP, SGDDAT ;LOAD ESCAPE SEQ. ERROR. 
1955 eee aM ae) Mt RE KER 
1255 000004 : CMP RS, #4 Hite ty n HeOR , 
13es 906 Tene 906 a4 ao anon R3 iNO= CON PAss- $S- ENTER 
1 eta 162 LOXMI Ne DE 0 AGAIN. 
19¢7 006710 000723 INAG 
1929 006712 000151 O00111 177777 TFUNCT: .WORD .ERPL,.EINST,-1 
1930 gee 17e 000 172 TDATA: BYTE i72,0;i72, 160 
1931 006724 033 120 111 ENSRT: .BYTE .ESC,.P,.EINST,O 
1932 006730 o00e40 INRXT: NOP 
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DZ2VTHB.P11  11-FEB-77 08:24 ERROR POINTER TABLE SEG 9045 
i ia REET AITINe TO INGURE VTEl WILL SCROLL IF A LINE FEED 
1935 ; ROUTINE TO I RE VI WILL SCROLL IF F a 
mi ik SEMES E nafs vi fad ba rE aR 
| 1938 iA AF serra a bSureth (AND RESULTING SCROLL) 

1336 ‘IN steteer 8 te 1 AT AT nbie3, COL COL.79 
1 T T ROWES, COL. Bo. THE 
ies SQ hy eB Be ae 
ead PEN en lh Md RE REI 
1946 = RERKKESSARERRRRARESRRSSEREEAL AERA BRERA RELEARRRRRHRASRAASRA RAE ES 
(2) 006732 o00004 tST14: SCOPE 
(1) 006734 012737 O0000S 001160 MOV #5, STIMES 3300.5 ITERATIONS 
: | ) 006742 012737 006750 001106 MOV #CKSCRA,SLPADR ;;SET SCOPE LOOP ADDRESS 
1948 006750 037 O15 CKSCRA: JSR RO RESETV sRESET THE UNIT. 
iae3 BoereD  OoaaSe reais OER Katt OAD THE XMIT UFFER WITH: 
1329 open el baa 102 YTE pa COWN, eat mo 61, Tey Red Miao 
005767 033 104 O61 
i Bee Be ee egal 
19S2 006776 Ole 110 BYTE .LNFED,.ESC,.CHOM,.ESC,.0,.TCUCH, .BEL,O 
007001 bi 117 ie? 
1953 OO bbe 01 015300 MOV #16. ,XMCNT ;SET UP TO XMIT 16 BYTES. 
1954 0070 D14 004037 015702 JSR - ate 
igee Boobs Tosatti TRE PMY? CAUSED UNIT TO HANG. 
4 005732 O00061 1S om cpsom #61 iEXTT iFeR AT HOME A 1? 
{ae eae A548, . BEQ exer ives N ex! TEST 
1oEy BONE i m3 16150 CKSCRB cs ie; aT F BU OR Tao REC. Toor 
taps a pier as henge pete i NOV HEIN, WOSTOR oes ip REC. pOOPS rn STROAGE. 
ee4 Troe DOTS reat TOR L FER WITH: 
1af¢ Be bed cones (Ai 067 BR Te MD, OOUF .Y, .R23, ei wtie a ai ad iat. 
007067 157 101 033 
007072 117 131 
1%6 007074 033 110 033 BYTE .ESC,.CHOM,.ESC,.0,.TCUCH,O 
007077 117 127 000 
197 007102 012737 O000iS 015300 MOV #13. ,XMCNT eT UP TO XMIT 13 BYTES. 
1368 007116 004037 015702 JSR RO, XAREC XMIT AND WAIT FOR RECEIVED DONE. 
1 1 ipiati RROR one xT CAUSED VT61 TO HANG. 
ig ObrLe8 127737 005636 002170 1S Er SRBBUF , ZERO ita ait o 
1 ooi4i9 : GOSCRL iYES aT TEST a 
ig abr 13777 030712 o0Sb22 Erion ¢ BBUF i fre eon RERSOR POSITION. 
1976 007142 01374 002144 MOV Rest, at) plies oe ECEIVED 
1977 007146 004037 O16346 JSR :60 ISSUE CURSOR ERROR. 
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| D2VTHB.P11  L1-FEB-77 09:24 ERROR POINTER TABLE SEO O04 
1978 007152 000240 GDSCRL: NOP 


3 


SERS aS BSRRSEREES 


(2) 007154 Q00004 

(1) 007156 012737 

$48 007164 012737 007172 
1 77 
i bee tee hoe 
1999 10 11 000002 
2000 borsie 004037 016156 
2001 O0722e 005302 

2002 007224 001413 

SooM 007e2e6 112777 000101 
eo 007234 004037 016156 

1 

2009 eee poo6c4 
2010 ana39 016156 
2011 004037 Ol6e66 
Si ieee be 

201 13701 

2014 013721 

Sie Ree ae 

Bi ee Hae 

2018 01 


Bes 


Rene 
Guan 








001169 
001106 
o022e4 


906060 


006042 
o02e0e 


006014 


016550 


015300 
O0e2e4 
172372 


EE ENNIS TEST INSURES THAT THE VTel CURSOR CAN BE 


+éT15 


CURSe: 


1$: 


10$: 


es: 


3$: 


HE VT61 CURSOR 


ave aur aig 


ee hea 
HE SCREEN IS THEN 


AW A VIA DCA) t 
ros t Nat IS reef fie Ore we 


sT Nag 4 
EXIST ON THE SCREEN. 
; NON-SPAC 


POSITIONS MCONTATNING 


ES ARE REPORTED. 
5 HEHEHE} HEHE HHEHHHEHE HEHEHE 


#1, STIMES 


#CURS2, SLPADR 


#101, 3TBUFP 
ITl 
FTLCNT, ALWCNT 


RO, RESPTR 


> oe maggr ° 2 yee capemeiamamorene stairs ie Rutter RN ORE 


p00. 1_ ITERATION 
;;SET SCOPE LOOP ADDRESS 


A Ne aay eee 
ART OF 


ReoRenent XMIT COUNT 
;COUNT = ZERO? 

;LOAD THE CHARACTER(A). 
;NO-XMIT ANOTHER BY 


TE. 
iRO-CRECK Fat gist COUNT? 


S-ABORT TESTING THIS UNIT. 
; ISSUE END OF MESSAGE. 


;RESET INTERRUPT COUNTERS. 


Pao eed? BUPPER HLTH 


Re POINTS TO CURSOR ADD. a BUFFER 
if TO LOWER RIGHT -1 


oe tae TO XMIT oy CRRAE TER S 
T XOFF AND XMKIL 


DE ETED TO HOME? 


;NO-GET NEXT POSITION TO BE DELETED 
5,080 IT T_IN XMIT BUFFER 


{RESET INTERRUPT POINTERS 
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1 154 016550 MOV CUHME LNRM ;LORD INITIAL CHECK POSITION (HOME 
pt rae ootta: basses MOV —«sBLOO1’BLKM iSET UP TO XMIT A SOM -DATA- EON. 


1 01S27e MOV TBBUF ,R1 ; XMIT FER WITH 
b1BiGe MOV RL, Re LSBs Dna CA tT urren 
077577 O0e2e4 BIC eae ;CLEAR ALL FLAGS BUT XOFF AND XMKIL 


13721 MOV 
Bt 1 Borves Vv BRON (R ;CURSOR HOME 
013721 002054 MOV ESCO, (Ris 


1 MOV XNTAL, (R1)+ ; TRANSMIT ALL 
300 MOV S OTRO 
1 244 BIS #TENA OVXCSR SET _XNIT ENABLE 


BR CexT sNOT FOUND-E! 
013701 014770 4$: MOV RBUFP ,R1 ;SET UP Bi a" FLAG 
1 14 40§: 
020000 002224 BI 


e 


BeWSERE 


Wigomunens | 
G 
Bg 


% 
3B 


“Ne 
rou) 





007550 0 14764 014770 41S: V RBBUF , RBUFP iRE RESET RECEIVE ePOINTER 
A 1003 rari Oe ate CoBR OUR RROR-STORE IT 
eet ones ar Pome oe 
007574 022702 030536 6S: CMP BTCRLB+20.,R2 ©; STORED 10 ERRORS Ss? 

Ae os =sésSS i YES-IGNORE BNY FURTHER RRORS. 

i 016550 V LNRW, (R2)+ Ss FAILING CURSOR POSITION 
007606 cs 

10 37 015272 C2CK: CMP R2, TBBUF ; ANY TORED? 
est 1416 gro RSet RO EXiT IS 3 
007616 013701 015272 MOV TBBUF , R1 1 AS ERROR POINTER 
O07bee 1137 1S: CMP (RI), R23C79 :C TOL RIGHT? 

1411 BEQ C2xT S-NOT 

007630 104012 ERROR le ' NO- ISSUE ERROR MESSAGES 
007632 012746 O20040 MOV #20040,-(SP)  ;;PUSH 820040 ON STACK 
007636 012177 O0Si22 MOV (R1)+,@RBBUF  ;LOAD FAILING POS. 
007642 016346 JSR RO, CURER :T c 
007646 020102 CHP Rl, "Re ‘DONE WITH aE RRORS? 

652 o00240 C2xT: NOP 310, OUR er T 


; RRAAARAA EERE LAE RAE REESE REELS EERE EERE ERE E EERE REE E ERE RL ERE 


Pid RERERPRARRALOdad ada uctauie Pere eee: 


e086 
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Seek & fees 


SEUSS & 


rervrurureru rurororurururururururururururururururerururururururufururoru 


=~ Se er at ene er eae ed ee 
RRS BOR ROR Baal ron OSS REORES 


—T 
~eS 


5 


st atatatatatatatatetetete, 
£0 
ooo 


SEERBERORERS 


ONOKOO OOOO 000O00000 


oo 
a 
gs 
N 
a 


- 


000004 
b1s737 


Scents 


2 
—s 
he 


% 


fe 
— 
£ 
ro 
tJ 


Fs 


Baea os 
f+ ee 2 


es 


bavere 
015302 


17915 
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Bot 16s 


015300 


004722 


001126 


001160 


me me eee ee 


11-FEB-77 08:58 PAGE 13-32 
ERROR POINTER TABLE 


5 RRRRRELERRRRE RRR ERRE RARER EE AERA LARA A ELLER ELLA ARERR AREA SELES EE EE 


seg Ripapmnan crip naNRR RET 
#5, STIME - RATION 
NOV #NHLN, SEB ADR +#20,5 stoBE Noe ADDRESS 
NWLN: JSR RO, RESETV ;RESET THE UNIT AND ENTER MAINT. MODE 
MOV TBBUF RI 
JSR RO LbOF “LOAD XMIT BUFFER WITH- 
BYTE Prec. , C20 
BYTE ee eee 
V #9. , XMCNT ;SETUP TO XMIT 9 CHARACTERS 
JSR RO  XMREC 60 on ommy 
ERROR 11 TRANSMISSION CAUSED VT61 TO FAIL/HANG 


308: MP Rb 20, aReeUF EA aon POS. S/B ROW 1, COL 20. 


CLR T 
Si BPRS seo 


; ISSUE IT 
MOV RO1C20,-(SP) § ::PUSH ROIC20 ON STACK 
“ ISR RO C R t de Typ AND ISSUE CURSOR ERROR 
MOV CARRT, (R1)+ ;LOAD XMIT BUFFER WITH 
MOV ESCOI; (R1)+ ‘CARRIAGE RETURN, READ CURSOR 
MOV ROCUR. (R1)+ : POSITION 
MOV 84, XMCNT ‘SET UP TO TRANSMIT 4 CHARACTERS 
ISR RO. XMREC -GO DO IT 
BR 4o$ ; NORMAL EXIT. 
ERROR 11 :T ISSION CAUSED VT61 TO FAIL/HANG 
BR 4§ “EXIT TEST 
40S: CMP RO1COO, IRBBUF i CHECK CURSOR POS. S/B ROW1, COL O. 
BEQ 4 ‘EXIT TEST IF GOOD. 
CLR $GDDAT 
MOV CARRT , SBDDAT 
ERROR 


; ISSUE IT 
MOV ROICOO,-(SP) §;:PUSH By COO ON STACK 
a JSR RO, CURER SET UP ISSUE CURSOR ERROR 


55 SE 2 gg 9 9 9 9 9 9 A dd a a a a a a ak 
sR REEN: TO VERIFY PROPER OPERATION OF ERASE TO END-OF- 


™to-ENO OF Sokeen Ye THER Tesie6 eNO THE 


iE TIRE OREN S READ VERIFYING THAT IT IS NULLS. 
, , nuuuaubeouboeuacoesoarsestaneesaceusccuscesuccessessdecsassseu2 


> gue uuanaeaaamamma pen eceaee scuunmmaaerncmR or sorta: 
MOV #3,STIMES ;;00 3 ITERATIONS 


tér1 


SEG 0046 
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|" MAINDEC-11-D2VTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-33 


D2VTHB.P11 11-FEB-77 08:24 ERROR POINTER TABLE SEQ 0049 
3} 010102 012737 010110 001106 MOV 8ERSE,SLPADR §;;SET SCOPE LOOP ADDRESS 
| p37 
ae 10110 ERSE: TV :R T-S NT. MODE. 
| Hay SIRS Blane Bikes CE 9 A Sign Rs a 
141 Ol - 7 io 
l MOV R 
14 Bt 153 ett, Bt 14 a TRSUE AR :LOAD XMIT BUFFER WITH: 
2143 010134 033 110 033 ESC, .CHOM, .ESC, E0S, .ESC,.0, .XMTAL, 0 
010137 lle 033 117 
O101Me 26 000 
2144 010144 113799 002132 001125 MOVB = ESCN, SGDDAT+1 
2145 O101S2 113737 001774 001124 MOVB £05, $GDDAT LOAD ERROR WITH ERASE TO E0S 
2146 010160 005037 001126 CLR SBD0AT 
2147 010164 004574 CLR aRBBUF 
el g10170 1 015300 MOV 87, XMCNT SET UP TO XMIT 7 BYTES 
1 10176 15702 JSR RO; XMREC XMIT AND WAIT FOR REC. DONE 
2150 010202 BR cs 
2151 O10204 104011 ERROR 11 
e1¢ 010206 BR ERSXT 
21 10210 1 o04SS0 002170 SS: CMPB = RBBUF, ZERO Viel XATTTED SOM/EOM ONLY? 
e154 010216 001407 BEQ ERSXT a 15 tio 1 weenie 
(ew 
gieP stead raters 015660 SR ho CLREG Ere FR STORAGE 
2157 010226 117737 O04S32 o01126 MOVB  RBBUF, SBDDAT 
2158 010234 104004 ERROR 4 gute DATA ERROR 
2159 010236 O00e40 ERSXT: NOP 
2160 
Ae 
tt EEE NS UTINE TO SET UP END OF PASS INDICATION, 
e165 SELF F TESTCESE PT P ) ac TSsUed 10 Tre UNE unr UNDER TE TEST al 
167 : TE I F 
sie REET TE das HBr nas! RY oF ABR een 
170 a4 2 
517 OB! poe EER bla FAL COPIER 13, Ig, PReaenT 8 CAUSE 
2172 THE UNIT T RESPOND 10 1 any FURTHER COMMANDS 
e173 “UNTIL THE TO EEN HRS 
size —sannenn fun THE, SCREEN HAG, BEEN, COMPLETELY CORTED.) 0 
2176 = LERKRAEEAAERERESRERESREREAERAAARAARRERAERARERALRARRLARREAARRERE 
(2) 919249 000004 téT20: SCOPE 
(1) 010242 012737 000001 001160 MOV 1, STIMES 5300 1 ITERATION 
mee 010250 012737 010256 001106 MOY aLaTst, SLPADR ;;SET SCOPE LOOP ADDRESS 
2178 010256 LSTST: 
(2) 010256 013746 002170 MOV ;;PUSH ZERO ON STACK 
2179 O10eb2 01374 002122 MOV TErER, “(3 i PUSH TSTER ON. STACK 
2180 010eb6 002054 MOV i PUSH ES 0 ON STACK 
2181 Ol 013456 JSR Gites j TRANSMIT IT 
2182 010676 15412 JSR ro GO LOOK F XON. 
2183 Ol BR  OTBIRESPONDED-NOT HUNG 
2184 010304 013737 001732 001124 MOV URCSR, $GDDAT  ;LOAD THE ADDRESS 
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| 2185 910312 013737 001742 001126 HOV VECT, SBDDAT ; LOAD THE VECTOR aaa 
mre . 
518 Bi bas ABi839 01S302 1S: a AB RESETV Reset Set MAINT. NODE. 
| 2188 O1 002210 CLR CT :SET UP HALF-SCREEN FLAG. 
2189 O01 002224 2S: BIC #77577, VSTAT ; CLEAR FLAGS Roe AND XMKIL. 
g130 1 1 1901 002226 MOV #1001, 6LKM *SET UP TO XMI -DATA- EOM. 
191 Ol 13701 Ol MOV ‘RI >SET UP BEG. OF 
e13e o1 MOV #320. R3 ‘FILL BUFFER WITH INCREMENT ING CHAR. 
1 1 i JSR BINC 
219% O1 012737 001 015300 #960. , XMCNT ;SEND 12 LINE TO VT61 
gle o1 171340 BIS 8TENA, aVx j ENABLE XMIT INT S 
1 1 1 l V € =-( ;;PUSH & 
e137 Ol 12746 HOV #50. 4-1 i PUSH. 850 ON STACK 
at Ot ONGe pares — EROSEL tNOT FOUND-EX 
e200 O10414 005737 002210 TST BUBCT Woe WITH SCREEN? 
Bai Bt SS Ege 005430 MOV #SETREV,R3 : ENTER REVERSE VIDEO 
2203 O10426 004037 016226 JSR RO. LOXMET ESCAPE SEQUENCE. 
2204 O10432 005237 002210 INC BUBCT i INCRENENT SCREEN HALF FLAG. 
2205 010436 000735 BR 25 AND ISSUE SECOND HALE IN REV. VIDEO. 
2206 tan 032737 000001 o02124 3s: BIT #81T00, IDENT IDEN = COPIER? 
2208 Bt OND eed 002170 aby etn , orp 
2209 O104S4 pts rue 000135 MOV #.CPYSC. -(SP) t BUSH aeCPYsC. ON STACK 
2210 O10460 013746 002132 MOV  €SCN,-(SP) PUSH ESCN ON STACK 
2211 O10464 004037 013456 JSR RO, TESC 
22l2 O10470 004037 017722 JSR RO, CKABRT ; CHECK FOR A PERIPHERAL ABORT. 
2213 O10474 105737 176 ENDSEL: TSTB MODE ‘IF IN MAN MODE DO NOT ENTER EOP. 
2214 010500 001402 BEQ ENDOPS 
2215 010502 000137 003074 IMP ASTRT 
2216 O10506 042777 OOD100 171216 ENDPS: BIC sCLEAR REC. INT. BEFORE NEXT UNIT SELECT. 
eel? -SBTTL END OF PASS BOS RCUTINE 
(2) | SEREREREARRSEERRERRRESE SESSA RRRA AERA RRL RAR LARA AAERA RAHA AAEKE 
(1) t KINCREMENT THE ( 
(1) ; HINDICATE END-OF AFTER 1 PASSES THRU THE PROGRAM 
(1) aTYPE © #XXXXX" (WHERE OOK IS A DECIMAL NUMBER) 
(1) 1 eIF HERES A HONTT OR GO TO IT 
(1) :#IF THERE ISN’T JUMP TO MODCA 
(1) oO10514 SEOP: 
(1) piDeie vaste 1102 ee TSTNM ;ZERO T TEST NUMBER 
te 
(1) bt pe38 opens sets CLR TIMES 4 THe NUMBER OF ITERATIONS 
i} SUES Bere Pu coum = Hess ERA lah WS ee 
(1) sear pes BEE (PC)+ :: LOOP? 
i) Glges Bee SEPT: 89 Soon is 
(1) at TEE MOV (PC)+,a(PC)+  $;RESTORE COUNTER 
(1) O1 1 SENOCT: . 1 
(1) pte sere 10621 al SENDMG ; TYPE “END PASS # 
(2) bi pee0 br3746 Bb1100 MOV $PASS, -(SP) i ECAVE SPASS FOR TyPEOUT 
(2) 010564 104405 TYPDS ::GO TYPE=-DECIMAL ASCII WITH SIGN 
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| O2VTHB.P11 == «11-FEB-77 08:24 END OF PASS ROUTINE SEG 0051 
P. an 01056 04401 010616 TYPE ~-,SENULL ;; TYPE A NULL CHARACTER 
' (1) 010572 013700 o00042 SGETY2: MOV dade, RO ::GET MONITOR ADDRESS 
|  @) 010576 001405 BEQ _  SDOAGN $3 IF NO MONITOR 
(1) pis 500 RESET >: CLEAR THE WORLD 
(1) 010602 10 SENDAD: JSR PC, (RO) -:GO TO MONITOR 
Se Stet td NOP ic! ieneee 
(1) Bidet 000240 NOP :ACTIIL 
(1) 010bi2 SDOAGN: 
(1) 010612 000137 JMP a(PC)+ ; ;RETURN 
(1) 010614 002530 SRTNAD: .WORD  MODCA 
(1) 010616 377 377 000 SENULL: :BYTE -1,-1,0 -:NULL CHARACTER STRING 
(1) 010621 01S O42412 O42116 SENDMG: .ASCIZ <15><12>/END pass’ #/ 
(1) 010626 os0040 OSISO1 O20123 
(1) 010634 00043 
2218 8 5 LRALAERRE RRA RRER LEER E EEE SRLS REAR EAE R ERE LEAL ELLE LEE E 
2219 ROUTINE TO ECHO THE KEYBOARD. KEYS FOR TAB, BELL CARRIAGE 
eec0 AND LI FEED CHO A MNEMON C, NON-DISPLAY GHAR. ECHO OCTAL 
jEQUI NTS Ba ny 7 oo, ECHO THE LVES * 
oos5 555 *CONTROL C (003) WILL bate’ a TEST EXIT. ’ ae 
sso : 5 REAELELLE AREER ERASER EER EEE RARER REAR REE REEL ELE EERE ELLE 
wi 010636 oo0004 > egage  poengauepaomaa tne wn mnie aE RINE tty ee 
(1) O10640 012737 000001 001160 MOV #1 STINES D0 1 ITERATION 
01064 012737 010654 001106 MOV 8KYBD,SLPADR § ::SET SCOPE LOOP ADDRESS 
a] 010654 004037 016266 KYBD: JSR RO, RESPTR 
2230 010660 012702 026014 MOV #OKYBD., Re ;LOAD MESSAGE ADDRESS INR2 
2231 010664 004037 017322 ISR RO, OSMES ‘DISPLAY KEYBOARD MESSAGE 
2232 010670 012703 O2640e MOV #OCNTZ, R3 ISSUE CONTROL C EXIT MESSAGE 
S533 biorad brevis OL T TSE yon ROLOXATT 
2235 010704 004037 Olbe26 ISR RO, LOXMIT ISSUE EXIT MAINTENANCE MODE. 
eee al er se Bea570 pennants ae tan a seco NSTAT cee CHARS BED. steed 
2238 010722 001001 BNE 11 : YES-GO PROCESS 
2239 010724 000001 WAIT “WAIT FOR A CH. 
2240 0107e% 117701 O20260 11S: MOVB  @ABUFP,RI ‘GET RAW RECEIVED 
Soup OlOrse pOONe ie ETSI TOIT CONTINUE Ss 
2243 010740 0001.37 003074 IMP ASTRT *EXIT TEST 4 
2e44 O01 i 020242 10$:  CLRB  @ABLFP ‘CLEAR CHAR FROM BUFFER 
Sour DiOree DoideS CCC OORees bh oe ee ae ee ee 
2247 019760 014772 CLR ESAMB “YES - RESET ESC ASSEMBLY FLAG 
2248 O10764 1 Be tooe HOV HDESC,RI ‘LOAD ESC MESSAGE ADDRESS 
Ae nO eee 
2252 Ot 1006 Leoie? 000176 CHPE Ri, #176 -OCTAL EQUIVALENT 
Sees 011006 110177 MOVB TBUFP -LOAD CHAR. IN XMIT BUFF. 
2255 011012 004037 016156 JSR RO AMT ie XMIT i . 
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| OZVTHB.P11 = 11-FEB-77 08:24 END OF PASS ROUTINE SEQ 0052 
| 2256 011016 112777 o00040 oOD4eSe2 MOV8 #40, ATBUFP sLOAD A SPACE 
2257 otiBSs 016156 ISR RO, XNIT AND XMIT IT. 
3 11 137 001750 2s: Prog R1, BEL ; CHAR. =BELL? 
2260 011036 001003 BNE 
2261 011040 012703 026263 MOV #OBELL,R3 sLOAD BELL MESSAGE ADDRESS 
011044 26 BR KYBXNT 
otipss it 001756 3S: CHP R1, TAB ;CHAR. =TAB? 
ll te 026244 MOV #0TAB, R3 sYES-ECHO ’ TAB’ 
2266 011060 o00420 BR KYBXMT 
a ¥4 Btibee ibiots 001752 4g: CHEE T,Ri CHAR. =CARRIAGE RETURN? 
2269 O11 12703 026251 MOV #0CR, R3 sYES - ECHO ’C/R’. 
2270 O1107% og0412 BR KYBXMT 
2271 011076 120137 001754 S$: CMPB ss R11, LNFED CHAR. =LINE FEED? 
2272 011102 001003 BNE 6$ :NO CHECK FOR CONTROL 2 
2273 O11104 012703 O262S6 MOV #0LF,R3 “YES = ECHO ’ 
2274 11119 DOO404 BR KYBXMT 
2275 (O1111 017416 6S: SR RO, BINOCT :CONVERT BINARY TO OCTAL 
2276 O11116 012703 002164 OV aSVER1,R3 
2277 Olll22 042737 002224 KYBXMT: BIC #77577, Z4NSTAT ; CLEAR FLAGS BUT XOFF AND XMKIL. 
2278 011130 004037 O1b226 JSR RO, LD 60 XMIT 
e279 011134 000665 RO,L Oxf WAIT FOR NEXT CHAR. 
2281 ; SEQUENCE TO EXIT ‘cammte MODE. 
2282 011136 033 117 141 EXMAIN: ‘BYTE ..ESC,. IN,O 
ait 011141 000 
2284 5 AHHH} HEHEHE HEE HEE HEE 
2285 10 UTILIZE THE VT61 ‘AS A PRINTER CONTROLL 
2286 tAFTER SSAGE Is Dis YED, THE TEST WAIT 
2287 iFOR A C7 ORE AC cRNTERING TEST. A PAT 
2288 MENTING ROLLING CHAR WILL BE OUTPUTTED UNTIL A 
2289 i CONTROL c(003) tS RECEIVED. 
2231 5 Se SERN 6 2696363036 2 9 48 9 2 9 9 9 9 9 9 a a a 
2293 = © PRSKAREEAEREA SRLS S ERA ER AA REARS SLA RSRAAAERAARRARRARARE LRA RAAAHKAE 
(2) 011142 o00004 tST22: SCOPE 
(1) 011144 012737 001160 MOV #1, STIMES $100, 1 ITERATION 
(1) O111S2 012737 O11160 001106 MOV 8TPRNT, SLPAD *SET SCOPE LOOP ADDRESS 
eee 011160 012702 o26446 TPRNT: MOV 8DPRNT, R2 pga: PRINTER MESSAGE ADDRESS 
22% O11164 004037 017322 JSR RO, OSMES :AND ISSUE IT 
2297 011170 012703 011136 MOV IN, R3 
2298 011174 004037 Olb2e26 JSR RO, LOXMiT s ISSUE EXIT MAINTENANCE MODE. 
2299 Ot i¢00 004037 017514 a JSR RO, GTCR :GO SET CARRIAGE RETURN 
ets) te 01374 002170 MOV ZERO, -(SP) :;PUSH ZERO ON STACK 
2301 O11210 013746 002114 MOV EPNT,-(SP) ::PUSH EPNT ON STACK 
30 iets O37 008132 MOV ESCN -(5P) +:PUSH ESCN ON STACK 
303 O11 1 JSR 3 
2304 011224 013701 015272 MOV BBUF ;LOAD Rl WITH XMIT BUFFER 
2305 011230 012705 000041 4g; MOV #41,R5 *RS=1ST CHAR 
2306 011234 042737 077577 ooe2e4 SS: BIC #77577, VSTAT | ;CLEAR ALL FLAGS BUT XOFF AND XMKIL. 
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| D2VTHB.P11 11-FEB-77 08:24 END OF PASS ROUTINE SEQ 0053 
| ll 1 15272 MOV TBBUF ,R1 
gagz Bilele B137Rh Doosos Ya ee /R3= LINE WIDTH 
309 Cll 017232 JSR RO, BL OINA ; GO BUILD p SLIDING PATTERN. 
e318 pli 13721 51 MOY CARRT, (R1)4 LOAD A L/F 
11 O11 13721 001 MOV LNFED, (R1)+ 
e312 Oliebs 012737 000206 015300 MOV 134. ,XNCNT ct UP TO XMIT BY BYTES. 
sali ll 737 pope 470334 Bt IYHDNe Veta ;WAIT FOR XMIT DONE 
Soe aD or? o20S44 BEG RD EXTST ;CHECK FOR EXIT REQUEST. 
531 1131 arte BR ‘ ONT NUE 
este biases. Coulee bites 6S TE ORB LCKABRT iYES-EX SS TERIPHERAL ABORT. 
5313 ll eae pha 55 : debe RD oSKRE Beebe LIMIT? 
2321 011334 001337 BNE S$ 
2322 011336 000734 BR 4§ YES RESET IT 
gact bd 5 KEELES ERLE EE ERE E REELS EERE REE EEE EEE REE GREE EERE ERE E REE EELS 
2326 ROUTINE TO LOOP DATA/ COMMANDS FROM THE vib BACK K T0 
2327 : THE sunt path TRANSHISSI RESULTING FROM A ESC 
2328 ioe ret Be WILL ENTER THE SCREEN 
2329 iat re CURSOR TION. THE ores CAN BE USED TO SIMULATE, 
2330 : OR CREATE SPECIFIC SCREEN PA AND OPERATIONS. 
ous yaaa ae 
2 HEHEHE HHH ESSIEN AHHH HEHEHE HEHEHE HEHEHE 
(2) 011340 oo0004 +8123: SCOPE 
(1) 011342 012737 000001 001160 MOV TIMES ;;D0_1 ITERATION 
mst 011380 012737 01135 001106 MOV He ST,SLPADR ;;SET SCOPE LOOP ADDRESS 
2335 011356 004037 016266 LPTST: JSR RO, RESPTR sRESET ib NTERS 
5 tise Boe tae wae BRA aynene Somes 
11 I JSR S 
533g ine atc ptt 33e TOR sEXNAINRS ; ISSUE EXIT HARNTENANCE MODE. 
5333 abe 7 ehieytt JSR Sa mar 
eal 011406 000137 003074 ° IMP AStRT EN TER MAN "Rove VIA SCOPE ROUTINE. 
said £ 8 ee RRA 5 RTT fl IR 
eave carob T. ALL KEYS MUST BE DEPRESSED 
en fe Canes a eh Se tla Format 0 THe 
” 2349 .* ' Tits UP ECHO tein IN MAINT OLS ERED Bae N pec tvs” 
2350 R POSITION NOT THET INDICATED MNENONIC. 10 
2351 AUTOMATIC EXIT TEST 
By - eauend RmOES HILL CAME ON, AUTORRTEC EXT EHON TEST saunas 
2354 0 HEHEHE IHHHHHHHHHHHHEHHHHHHHIHIHIHHEHHIHHHHIHIHHEHHIHHEHEHIHHE 
(2) O11412 +éT24: 
(1) O11414 012737 000001 001160 MOV #1, STIMES ;;D00 1 ITERATION 
(1) O11422 012737 011430 001106 MOV wPOKBD,SLPAOR ;;SET SCOPE LOOP ADDRESS 
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D2VTHB.P11 11-FEB-77 08:24 END OF PASS ROUTINE SEG 0054 
2357 011430 01 026664 POKBD: MOV #OKBD ,R2 
2358 O11434 017322 JSR RO "DSMES ;DISPLAY KEYBOARD TEST MESSAGE. 
2359 011440 002210 CLR BUBCT ‘CLEAR ERROR COUNT LOCATION. 
360 011444 0500S CLR RS 
2362 O114% 016504 011572 DOAROW: MOV DTTBL (RS), RY ;SET UP GOOD’ CHAR. POINTER 
2363 O114S2 016503 011544 MOV MSTBL (RS) , 3 
53h Ot 1466 bo421 Bee OGEAIN iF arecace” 15-1 cheat MAINT. MODE. 
2366 O11 016226 JSR ab LOXMIT TEFeSsAGe FUNCTION” MESSAGE. 
2367 011466 004037 O20046 JSR RO; CKKBD $46 CHECK 
2368 g1147e 123727 002210 oo001e2 CMPB BUBCT, #10. TEN ERROR EXIT? 
2369 011500 153451 BLO * NO-CONT INUE. 
2370 011502 Od00402 BR Bat YES-EXIT TEST. 
2371 011504 005725 1S: TST (RS)+ ‘IN NCREMENT OFFSET. 
2372 011506 000757 BR DOAROW NO-DO NEXT ROW/FUNCTION. 
2373 011510 012702 433 FEXIT: MOV #DEXT, Re 
2374 011514 004037 017322 JSR RO, DSMES sone EXIT MESSAGE 
2375 011520 000137 003074 JMP ASTRT 
2376 011524 012703 011540 CLMAIN: MOV #RSMAIN.R3 ;SET UP TO EXIT MAINT. MODE. 
2377 011530 O04037 Ol6226 JSR RO, LOXMIT 
2378 011534 005725 TST (RS)+ ; INCREMENT OFFSET. 
2379 011536 000743 BR DOAROW ‘NOW TEST CONTROL AND SHIFT FUNCTIONS. 
2380 011540 033 117 141 RSMAIN: .BYTE .ESC,.0,.DMAIN,O’ 
011543 000 
2381 
2382 
2383 ; TABLE OF MESSAGE ADDRESSES. 
2385 O11544 027067 027174 027231 MSTBL: .WORD DTOP,DSEC,DTHRD,DBOT 
2386 O11554 027436 Oe74b2 177777 .WORD DSPCE,DKPD,-1,DCONT, DLSHFT, DRSHFT, 0 
011562 027310 027015 027121 
011570 oo0000 
4 011572 027663 027704 027724 DTTBL: .WORD ROW1,ROW2,ROW3, ROW, SPCB 
011600 027742 027764 
2389 011604 027766 OO00000 027760 .WORD KYPD,0,CNTRA, SHFTA, SHFTA 
O1l612 027762 027762 
2391 5 LEAKE RAA RAE S EARLE EERE ELE LA ERLE REAR E AERA RL ERLE ELLA RAR EL REE E RE 
2392 SUBROUT 0 ROM MULTIPLE ENTRIES 
as,  puvenndGRRUTINE, TO ALLOM SETUP FRON MULTIPLE ENTRIES. 
2395 011616 a A: 
(1) “SBTTL INITIALIZE THE COMMON TAGS 
(1) >;CLEAR THE COMMON TAGS (SCMTAG) AREA 
(1) 011616 012706 001100 MOV 8SCNTAG, R& Cina LOCATION TO BE CLEARED 
(1) Oll622 o0S026 CLR (Rb)+ ‘CLEAR MEMORY LOCATION 
(1) 011624 022706 001140 CMP #SWR,R& ;;DONE? ’ 
(1) 011630 001374 ;;LOOP BACK IF 
(1) 011632 012706 001100 8STACK, SP ::SETUP THE Pack POINTER 
(1) js INITIALIZE A FEW VECTORS 
(1) 011636 012737 020734 000020 MOV HSSCOPE, BIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(1) O11644 012737 000340 o00022 MOV #340, a8 LOTVEC+2 L 
(1) O116S52 012737 021210 000030 MOV #SERROR, Srenivec’ EMT VECTOR FOR ERROR ROUTINE 
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Be 


Cc 


11 
ll‘ L1-FEB-77 08:24 INITIALIZE THE COMMON TAGS SEQ OOSS 

2737 000340 000032 MOV -LEVEL 7 
rete iT MOV ee Taas Se c’ i TRAP VECTOR FOR TRAP CALLS 
116 1 MOV ° + 
SLIGN Slers, SOONG Boone = HY oa mings aye po rm 
SRT piers SP OSe #340 ePuRVECtE rH CEVEL ? 
011716 013737 O10SS0 O10S4e MOV SENDCT,SEOPCT  ;;SETUP END-OF-PROGRAM COUNTER 
011724 005037 001160 CLR STI $3 ssINIT ALIZE NUNBE NUMBER OF ITERATIONS 
pt iea eee eet 001115 ae Hi + 
011742 012737 O11742 001106 MOV 1 St PROR HIN IAciee THe THE LOOP ADDRESS FOR SCOPE 
vacrchoel spat alternate ee Ye HARDWARE Su OH rechten. IF HOF FOUND OR TT ts 
011756 013746 O00004 ii mov" 2." ea Cc ota a ERROR VEC _ 
011762 012737 012016 OO0004 MOV #64S, JBERRVEC eer ur P ERROR 
011770 012737 177570 001140 MOV #DSWA, SWR NETOR SWICH REGISTER 
011776 012737 177570 001142 MOV 8ODISP, DISPLAY ;:AND A HARDWARE DISPLAY REGIST 
012004 022777 177777 167126 CMP #-1, aSUR +: TRY TO REFERENCE HARDWARE eer 
Oledi2 o01012 BNE 66S j | BRANCH H IF io REOUT. TRAP OCCURRED 
012014 000403 BR 6S$ BRANCH IF NO TIMEOUT 
S120 O1e7i6 012024 64S: Mov 8655S, (SP) ::SET UP FOR TRAP RETURN 
012024 012737 000176 001140 65%: MOV #SWREG, SWR ;;POINT TO SOFTWARE SWR 
012032 012737 000174 001142 MOV #0 ISPREG DISPLAY 
012040 012637 000004 66S: MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 

.SBTTL TYPE PROGRAM NAME 
;; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

012044 005227 177777 INC #-1 FIRST TIME? 
0120S0 001017 BNE 7§ BRANCH IF NO 
012052 022737 o010602 opc04e CMP 8SENDAD,a#42 =: :ACT-11? 
012060 001413 BEQ 67§ ::BRANCH IF YES 
012062 104401 012070 TYPE ;; TYPE ASCIZ STRING 
012066 000410 BR THE ASCIZ 
neni js: ASCIZ <CRLF) #MD-11-D2VtH-8%<CRLF> 
012110 104401 a TYPE STUPM ;ISSUE SET-UP MESSAGE. 
012114 012737 012134 000010 MOV kTRPA, ae10 ;AND VECTOR 
Olel2e 000230 SPL SSOR IS 11/45? 
012124 012737 oO00004 017222 MOV #4, PMULT *YES-DELAY MULTIPLIER = 4 
012132 OOO4I6 BR RTRP 
012134 022626 TRPA:  POP2SP 
012136 012737 012160 oo00010 MOV #TRPB, a#10 ‘RELOAD TRAP ADDRESS 
012144 006737 002162 SXT CHRD :PROCESSOR IS 11/40 OR 35? 
612150 012737 000002 017222 HOV 2 ,PMULT YES-DELAY MULTIPLIER=2 
012160 022626 TRPB:  POP2SP 
piste 012737 000001 017222 MOV #1, PMULT ;PROCESSOR MUST BE 11/05 
bi2170 0 000012 OOO0iO RTRP: MOV #12, a810 RESTORE TRAP CATCHER 
b1e176 1 ° 002176 STB NODE *CHECK MODE FOR CORRECT EXIT. 
012204 000137 002276 IMP MANSA sEXIT TO MANUAL SELECT 
012210 000137 o0e24e 70$:  JMP AUTOR ‘EXIT TO AUTO MODE. 
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8 
Be 


Pll L1-FEB-77 09:24 TYPE PROGRAM NAME SEG 00st 

2416 
2417 EE RT EROITINE 10 VERIFY ROOREGG AG TIEY ARE ENTERED IN 
e418 ;SUBROUTINE TO VERIFY ADDRESS AS THEY ARE ENTERED IN 
aust METTTTTierirererrrrtterittrerrrrert rrr ttt TTT TTT tT Tritt TTT ttt TTT ye 
BY32 012214 020227 160000 TMNAD: CMP #160000 ; INSURE ADDRESS 15 IN 

005712 TST 

Tt ieee | 
i 0040S Be ALEXT .q1s OK, USE A NORMAL EXIT. 


Ea ETT BOEXT.: TYPES see ‘Se PURGE IT, TYPE 8 
ft ears peSees MOV Wei Ba00, RO tL 3 AND moO EST TO GET NEXT ENTRY. 
012250 012737 OO0006 OO00004 ALEXT: MOV i, a4 

012256 o00200 RTS 


eaten ri ge rt ie 
E 0L11 ADDRESSES AND STORES 


NA NTAB). ADDRESSES WHICH DO NOT 
ren IN A TRGLe. NT 1H) “Auf 
—seavenni eae IN IMEOUTE ARE STORE anuneesunraauness 


| 
: N_ RANGE. 
55 13se8 473795 o1ee36 000004 FOV Be ae iat LP tre Sut TRAPS 
| 


01 TRPVEC: MOV ;START AT BEG. OF FLOATING VECTORS 
1s7oe ousoe Rov Babe Re ; 
012703 000004 MOV ;R3 oerne IOT TRAP INST. 
pines! 1S: MOV hs ae ;ST ART NG ADDRESSES 
10321 MOV R3, (R1)+ LOAD 7 
062702 ADD , :ASS.ME 4 REGISTERS PER INTERFACE 
0201 001000 CMP Ri, #1000 
1 at NO CONTINUE LOADING TRAPS 
012737 012356 O00004 MOV #TPENT, a84 ;SET UP_TIME-OUT TRAP ADDRESS 


BcbesTihat x ABLE 


8 
i 
=zQ 
B 


NTAB, RS 
FADD: MOV STRTAB(RI) ,Re TESTED IN R2 
Oe61Ge TRPE: CMP ENDTAB(RI) , Re i RAVE EX TABLE ADDRESS? 
1 BLO BLCK YES GE ss. 
005712 TST are : SS THE DEVICE IF POSSIBLE 
1 MOV R2, (RS)+ iff gat THIS FAR THERE Is A DEVICE THERE-SAVE IT 
000010 FADDI: ADD #10, Re ; XT POSSIBLE ADDRESS 


TRPE TT T 
Se Bee (ete Sa BORE 
TBLCK oer Ary 
ei apitoe, pi aay Wie as CHECKED. 
abe RS) SET UP TABLE TERMINATOR ZEROS. 
ee une heer hat Te mvidtalir 
: THIS ROUTINE WILL em Th ne THE DEVICE ¢ Pad 
NT T WHEN XMIT INT IS SE 


;WILL ENABLE BI 
BE err eee eer et eee eee tLe rrr eet eet err te eee eee 


012376 OOSO4E CDEV: CLR ~(SP) ;CLEAR THE PSW,LSI11 STYLE. 
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TYPE GRAM NAME 


100$: 


CDEVA: 


1$: 


TDEV: 


PRO 


ae T_TRAP_INST. AT _—— 4, 
5 em ri 
OW NO * INTERRUPTS 
veto SToeate TABLE ROBRESS SET 


aan "aboress Set. 


Cay ALL DEVICES? 
iY ADDRESS IS IN PROPER RANGE(17XXxx) 
;ADDRESS IS DEFINITELY NOT GOOD -PURGE 


A LO RBoresers” TO BE CHECKED 


;NOW USE R1 AS FAILSAFE COUNTER 


HF ot U de eee enor INTERRUPT WITHIN 


a tel 


ioe J RECEI 
¥Y IN on ps OR eta 
PSW PRIOR TO INTERRUPT. 


esP 
orn Meatitcdacaid AC A Moa 
ROUTINE - mE ICK TEST OF ANY 


DL11 ENCOUNTERED 
RUN ON ALL ENTRIES IN _INTAB 


ss sonenatatecaeee ag suneeate bes eee HPeAEaARADHESREES TEES 


100$: 


1$: 


MOV pcs 
RTI 
MOV 
V saat TVEC 
MOV 10. d8I0 vet? 
RESET 
MOV 8VVECT,R3 
MOV BINTRG, Re 
8 : 
HOY AURCER' A 
TST (Re) 
Q AOUT 
I 1§ 
ADD #2, Re 
Bt 
MOV 1200,R1 
B13 #TENA, JVXCSR 
BNE - 
BR EVA 
Ic #TENA, aVXCSR 
SUB 10, (Re) 
MOV (R65+, (R3) 
TST )+ 
POP 
DATA PATTERN 
CL 
MOV #100$,-(SP) 
RTI 
MOV 
2 Ge 
Ney SicnAG (R 
MOV #340, (R1) 
MOV #81700, 
CLR 1 
BIS #ROENA, JVRCSR 
pIS 8TCOMB, AVXCSR 
8 4 
BEQ GDAD 
DE i 
B 1 
SUB 
BIC SF00RB, aVXCSR 
IC #RDENA; VRCSR 
TYPE DL 
MOV YRCSR, -(SP) 
TYPOS 
-BYTE 6 
"BYTE 1 


;CLEAR THE PSW,LSI11 STYLE 


;GET 3 ig By VECTOR ADDRESS 


Ser raat ht ig DELAY. 


Fb iti MAINTENACE . 


ORE THIS ADDRESS 


ae Bion oly? cep CYCLING. 
bis) XAT oBND RECEIVE INT. ENABLES. 


; ISSUE OL11 ren MESSAGE 
i VRCSR FOR TYPEOUT 


BD. ss 
;;G0_ TYPE--OCTAL ASCII 
Hie 6 DIGIT(S) 
TYPE LEADING ZEROS 


oa ee eS 


SEQ 0057 





FOS 


MAINDEC-11-D2VTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-42 
D2VTHB.P1l1  —‘L1-FEB-77 08:24 TYPE PROGRAM NAME SEQ 00s 

2524 O12bse 104401 001171 TYPE ASCRLF Sy vie an a 
Sese BiSe2B BP8522 oo1732 ono: Gr Pauw ie 2000 ADDRESS IN DL TABLE 
2527 Ole664 005077 167044 CLR aVRBUF tCLEAR ANY RECEIVE Thee STILL SET. 
e508 0126 OO0bbb BR CDEVA : CHECK ANOTHER Olu 

012672 00501 AOUT: CLR (RS) :SET A ZERO TABLE TERMINTATOR. 
2530 012674 012737 000006 oD0004 MOV #6, 084 ‘RESTORE LOCATION 4 TO HALT CONDITION 
2531 Ol 990006 CLR aad :TO CATCH ERRORS AND ILLEGAL INTERRUPTS. 
2532 Ol 1 34 000020 MOV #SSCOPE, J8IOTVEC’ RELOAD I0T VECTOR FOR SCOPE 
2533 Oler14 Ole737 000340 o00022 HOV #340, SHLOTVECHE ; LOOP. 
2535 O01 Ol7te ant MOV $309" Re 
2535 Ol 010221 1S: MOV Re. (R1)+ 
2537 Ole734 005021 CLR CRs RESTORE HALTS TO ALL LOCATIONS CONTAINING ICTS 
523g bisras Beate? puicoD CORT 

l le? 001000 CMP R1' #1000 :TO LOCATION 1000 
2540 012746 103771 BLO 1§ 
2541 012750 o00005 RESET CLEAR ALL FLAGS 
este Ole752 000200 RTS RO 
esky ET ET TTT TZRTIOM ROUTINE FOR PUTO SELECTION THIS ROUTINE. 
ests j INITIALIZATION ROUTINE FOR AUTO Be Tek eA ier ROUTINE 
5249 it at) ‘i Buren ICH T prof Adee e rey "Bech be PUR RE D. 
po Saapeaih ailcietatomekiasenntpateconsehaaanersanatioasasennal 
2550 012754 012702 o0lb1e tte MOV #OLTBL,R2 ;R2 POINTS TO DL11 ADDRESS TABLE 
2551 012760 012703 001552 MOV #VVECT,R3 RS POINTS TO DLil VECTOR 

1 001732 11$: MOV #VRCSR;R1 INTER TO vrei bh 

1 1 TST (Re) ; i ALL C 
cy O01 144 BEQ INTXT : YES-EXIT 
2555 012774 004037 013174 JSR wt *NO-GO LOAD THE ADDRESSES 
2556 013000 062703 ADD #2;R3 ‘UPDATE VECTOR COUNT 
e557 013004 004037 O1S4S6 ia ISR RO; ZFLAG ISSUE ESCZ AND LOOK FOR RESPONSE. 
(2) 013010 012637 002162 MOV (SP)+, CHRD ;:POP STACK INTO CHRD 
2559 013014 100414 BMI S$ IMEOUT OCCURRED NO CHARACTER 
2560 013016 123727 O02l62 000140 CMPB —s- CHRD, #140 CHECK IDENT FOR VT61 IDENTIFIERS 
2561 013024 103410 BLO 5 ;NOT A VIb1-SET UP TO PURGE ADDRESS 
2562 013026 1e37e? 002162 000172 CMPB «CHRD, #172 L A THRU 2 
2563 Ol 101004 BHI S$ ‘NOT A VT61-PURGE 
2564 013036 ug: 
(2) 013036 012637 o02162 MOV (SP)+, CHRD POP STACK INTO CHRD 
Saag 1g BRE iis TEST ANOTHER ADDRESS 
2567 013046 cS: : 
(2) Mees bie 002162 Hoy ys ;;POP STACK INTO CHRD 
5ep8 1 i ooo002 S ,R2 RESET ADDRESS AND VECTOR POINTERS 
pay aise precur OO00Ge 4 gc oR? ) Pu TACK 
5234 eee Steaat 000001 MOV Bat ) HiBUEH S2 ON et K 
2573 013072 004037 013404 JSR RO; BBLUP 
2574 Ol 1 MOV R3,-(SP) : PU H R3 ON ON STACK 
gee 131 909001 MOV 81'-(5P) : PUSH TACK 

13104 0 13404 JSR RO? BBLUP 


GOS 


| MAINDEC- Col -D2VTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-43 
DZ2VTHB.P 11-FEB-77 08:24 TYPE PROGRAM NAME SEG 0059 

| Be 013110 000725 BR 11$ ;TRY ANOTHER DL11 ADDRESS. 

013112 005737 O01612 INTXT: TST OLTBL ;CHECK TO INSURE GOOD ADDRESSES 
2580 013116 00101 BNE EXINT ; YES-GO TO NEXT TEST 

| e581 131 3107 TYPE NOVT tNO-ISSUE NO VT61 MESSAGE. 

131 1 Wiad 017224 MOV 43000. , DCOUNT SET DELAY TO 30 SEC. 

| 2583 013132 004037 017162 JSR RO, DELAY DO IT. 
2584 013136 062700 000004 ADD #4; RO SET UP ’NO VT61 FOUND’ EXIT 
2585 013142 000200 RTS R 
2585 013144 Ole702 001612 EXINT: MOV #OLTBL,Re ;LOAD AND ISSUE S00 ADDRESSES 
2587 013150 104401 023036 TYPE _,DUNTST OF RESPONSIVE VT61 
2588 O13134 1S: 
(1) 13154 012246 MOV (R2)+,-(SP) ; SAVE (R2)+ FoR TvPEoUT 
(1) 013156 104403 TY +360 TYPE--OCTAL ASCII 
(1) 613128 O06 TAYE 6 :: TYPE & brett %) 
(1) 013161 001 "BYTE 1 si LEADING ZEROS 
2589 O13ibe 104401 001171 TYPE SCRLF 
2590 013166 005712 TST tRe) T END OF GOOD UNITS? 
2591 013170 001371 1$ NO PRINT ANOTHER ADDRESS. 
2592 013172 000200 RTS RO 
25393 5 | SHANE HHEHHEEEHEHEHHHHEEEEEE EEE HHA SHEEERERSA SERDARONE TOSSES 
2s INE TO LOAD 4 ADRESSES FROM THE LOCATION AT (Re). 
2595 To 4 LOCATION POINTED TO BY R1(TO VXBUFF + 2). ROUTINE USES R4¥ AS 
2596 AND EXITSD WITH Re INCREMEN 
a Mrrrrrirrirrirtitertrtiirtire ei ritritiren terior rete 
2599 013174 o12204 LDADD: MOV (R2)+,R4 ;LOAD THE ADDRESS 
2600 013176 O10421 1S: MOV RY, (RL)+ STORE AN ADDRESS 
2601 013200 062704 oo0002 ADD #2°R4 NEE ADDRESS 
2602 013004 Oe0le7 001742 CMP RI; #VXBUF +2 tL 4? 
2603 013210 002772 BLT 1$ NO LOAD ANOTHER 
2604 O13212 o00200 RTS RO * YES-EXIT 
- HE OUTINE 10 RECEIVE CHARACTER(S). ENTERED WITH 
2608 + RONBER OF OETA ERS ‘o ih on THE SrACK 
2609 ; ROUT INE EXITS Hl WITH CARACT (3) ott. H STAC iF’ 
ceit LS xiTe WITH 1 On ORnAT 
spls Heb ‘aie a Le ie OF ZEROS TERMINATES 
3613 1) SS nvEON” IF SENT, ARE RECEIVED 

1 ;BU 

eel ss sn a A RREa ah Ca sR 
Toe Oty 012637 00222 RECTM: oy (SP) 4, ROSVE .POP STACK INTO ROSVE 
2615 Oi e20 Biss? bosei6 HOV (3P)+, SaBUECT fe STACK INTO d#BUBCT 
ebel 013250 need Ibe 1S: CLR CHRD an EHeRACTE NER SfoRace LOCATION. 
gbe3 Oi 3eN0 G3e777 Bp5e60 166464 3: BIT BRECON, aVRCSR it if BONE F sere CEETY 
2625 013250 005337 002220 DEC DLAY ;DECREMENT FAILSAFE CNTR. 
2626 013254 001371 BNE 3$ ‘NOT AT ZERO-CONTINUE WAITING. 





MAINDEC-11-DZVTH-8 MACY11 27(1006) 
DZVTHB.P11 11-FEB-77 08:24 


| pee? nes 19737 177777 onei6e 
| 5e58 O135ee Tiz73? reeyy2 onzi6e 

2630 013074 042737 O02 16¢ 

2631 nea 120737 002162 

Ee Biasis Tosa37 002211 

013316 001757 

See ole ioaig 

2637 013330 1ee737 OD0002 o02I62 

Sea O1ass 001083 

2633 O13NG 105237 02210 

A er 

Seas issee loess? 002210 

2644 Ola%6e 001403 

P64S 013364 01374 O02162 

2646 013370 000717 

BS om 

aig) 013372 137% ooelée 

(2) 013376 0 

aso O13N0e Oode0R 

2651 

2652 

Po53 

2654 

2655 

2656 

2657 

2658 

2659 

— 

(2) Q13404 012637 onezee 

aeb2 OLNIO Dloes? OOEeT 

Seey O1si20 lowe 

Sees Olsie 013704 002206 

Se ie ne R 

i i 

2669 ne 005337 002210 

ee Bist 012604 

2672 013450 O1374_ o0e22e 

2673 O13454 000200 





HOS 


11-FEB-77 08:58 PAGE 13-44 
TYPE PROGRAM NAME 


31$: MOV #-1, CHRD nie UP FOR FAILSAFE EXIT. 
BR RECEX T ROU UT 
4S: MOVB § @VRBUF, CHRD ; STORE THI CHARACTER. 
BIC #200, CHRD STRIP PARITY BIT. 
CMPB = #SLSH, CHRD jRECEI VED ; IDENT SLASH(S7)? 
a auect+1 ce ire ALL F's.asy COUNT. 
BEQ 31$ EQUAL ZERO-SET UP ERROR EXIT. 
CHP BUBCT+1, #139. iecelveD FIRST SLASH? 
41S: CHP #S0M, CHRD iI CHAR. ACTUALLY SOM? 
INCB BUBCT pe -SET UP TO RECEIVE EOM ALSO 
BR 1§ RECE VE NEXT CHAR 
cs: CMPB  =—s- #EOM, CHRD 
BEQ RECEXA i NOT “PUSH IT ON STACK 
DECB = BUBCT REMENT CHARACTER COUNT. 
BEQ RECEX :COUNT=0. EXIT WERE DONE. 
MOV CHRD, -(SP) PUSH CHRD ON STACK 
BR 1$ ‘i READ AGAIN 
RECEX: 
sae MOV CHRD, -(SP) ;;PUSH CHRD ON STACK 
MOV ROSVE, -(SP) ;;PUSH ROSVE ON STACK 
RTS RO 
j MEE EDITTG ull DEEP’ MK Oe TO 
:THIS ROUTINE WILL ’ ” XX 
‘ELIMINATE NON-RE IVE BOORESSES. - TERED 
‘WITH ADDRESS TO ;BUBBLED” ines ACK. LOCATIONS 
‘ELIMINATED WILL a3 FILLED D ITY ZEROS | annack MUST ALSO 
, nanunadepencovesaecertvocececssnestueraausussecurereseianeanes 
ih 
MOV (SP)+,ROS ;;POP STACK INTO ROSVE 
MOV (SP)+’ BUBC ::POP STACK INTO BUBCT 
MOV (SP)+’ TOADD ;;POP STACK INTO TORDD 
MOV RY, -( SP) PUSH RY ON STACK 
2s: MOV aat ‘PUT LAST GOOD DL11 ADDRESS IN RY 
MOV (R4)+, CHRD : NEXT TO CHRD FOR STORAGE 
1$: MOV (R4) +) -4(R4) UP 
Be dlect Tact on Fate, eons Ce 
- BNE 2s Fuel EC On BUBBLE COM - D0 "AGAIN. 
MOV )+,R4 ;;POP STACK INTO RY 
MOV © VE} -(SP) ?:PUSH ROSVE ON STACK 
RTS RO : YES-EXIT 
OEE NT UITIIG GUIPUTS TIE ESC SEQENCE FORD ON 
OUTINE OUTPUTS THE ESC 


; THI QNENCE mie ne 
; THE STACK. A _WORD OF TEROS MutT TERMINA HE SEQUENCE. 
;FORMAT FOR STACK WORD IS SEQ-ESC, IE-XXx033. 


ee oe 


SES 0060 





105 


| MAINDEC-11-D2VTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-45 
DZVTHB.P11  11-FEB-77 08:24 TYPE PROGRAM NAME SEG 0061 
go 1 5 SESE EE J EEE EES EE a EE AE A a HE SEE AE EE EEE EE 
2681 013456 TESC: 
(2) Tee 012637 og22e8 Nov (sP)+ ROSVE - POP STACK INTO ROSVE 
CETTE Ee A mee Ber 
pe tee fh By pbs Sera aie 
t 1415 BEO 3s io INATOR FOUND-EXIT. 
a4 Pf 0130s 1 2s: TSTB. RY Check CHESK Bore A ZE 
2689 013510 001406 BEQ 20S F ZERO+DO NOT are ROT. 
90 01351 000200 166216 BIT STROY, JVXCSR 
3 1 ate Q - wait FOR XMIT READY BIT 
26 1 110477 166212 MOVB —- R4, aVXBUF ‘XMMIT A BYTE. 
2693 013526 000304 20$: SWAB RY ‘GET THE OTHER BYTE . 
oeae Oisess AgizED gle 2 AF ee el RE WE HAVE CHECKED ie 
2636 ea reer BR 2s +8 Ee FP ONOTHER BYTE ; 
2697 013536 03¢777 000200 166172 3S: BIT STRDY,3VXCSR  ;SEE IF READY SET 
Seog pt ene Baa 000004 166164 BOY 90M, OVXBUF :5ENO 8 
333 Olsen BI777 000200 166154 BIT FTRDY aVXCSR E IF EPAbY SET 
ope Bt ees 1704 002210 Bee BUBCT, RY RESTORE , 
2703 013570 01374 O0e222 MOV ROSVE, -(SP) PUSH ROSVE ON STACK 
2704 013574 000200 RTS RO 
2706 ; | SHELOPERENEEEESESESEEHERSESERESERRESURRAD SD OEESHARESEEEEES 
2707 NE TO READ A CHARACTER FROM THE CONSOLE 
2708 ‘EXITS WITH CHARACTER ON THE CROCK 
op 5 HEHEHE HHH HHS HII 
2711 013576 eee 
a 013576 012637 902222 Mots Nov (SP)4, ROSVE. ; Ts -@ i STACK INTO ROSVE 
ots est areas _— Beg Blin inant FOR FOR 
sole BisPle ddrie OocecD MOVE STB) (Re) = PUSH CHARACTER To nernk 
sole pisele Bistue poesee cic Above. ete) PUSH ROSVE ON STACK 
e717 013626 000200 RTS RO 
a jpounannsoeeseseqoeqiersselecost 
20 ;MANUAL TEST SELECT MONITOR 
2721 iSEL cts FPere TO BE EXECUTED FROM THOSE ENTERED IN 
o7ee AL DIAL . IF TEST 377 WAS REQUESTED THE TESTS WILL 
oo sont 2 ala 1 5 dleomiitellemaiatemattnd eR ek 
o5e 013630 105737 002176 te TSTB MODE Bay NODE S SWITCH 
2727 013634 001012 BNE 1 
e708 013636 023732 002200 002202 CMP FTLCNT,ALWCNT "EaTA, XMITS WITH ALLOWED. 
7 13644 | BLO 100$ PATS LES LESS HAN ALLOWED-CONTINUE. 
oat bt Sees dees 200$ RESET ~— SBE RBOR ALL Int aC FLAGS. 
2732 bt sPeG 000137 O11616 “MP SETA SET UP TO RESTART TEST 





| NAINDEC=11-D2VTH-B__MACYL1 27( 1008) 
77 08:24 


| DZ2VTHB.P11 11-FEB- 


: 
Sane 


bE 


be 


Sees 
Dees 
Se EE 


OOOO OO OOO COO OCOO0OO000000 
P= bs bb Fb Pb ob bP bb bh bb be Bo he he pe 


LLU P Une PRP Ee PRP ORR 
g 
8 
: 


é 
rm 
2 
x 
? 


8 
d 


EPEREERSRASR ONC ateaaiat 


RRISVE 


sSeeeGSOneEs 
an 


as ee be pe Re Pe be fe 


oa 
er i 
02 


é 
F 


88 


E 





165244 


165776 


014002 
014002 


165636 


11-FEB-77 08:58 PAGE 13-46 
TYP , 


— PROGRAM NAME 
100$: RTS RO 
1$: TST (R&)+ ‘BOP TACK 
POPeSP : POP Cpe pe RETURN AND VECTOR 
CLR FTLCNT *DO NOT INC. FATAL COUNT IN MANUAL MODE. 
10$: grr BRECON, ASTKS ‘CONSOLE ACTIVE? 
MOV8 a$TKB,RI NPUT 
BIC #200, Al CLEAR The Me PARITY 8 BIT 
CMPB és. RI 
BEQ 200 EST EX aie 
11$: MOVB @TSTPTR,RI GET THE NEXT TEST 8 


OF L 


2s: DEC 


ASL fest 6 7 FS AE ORI SS OFFSET 
MOV eee snesoit +L U RODRES 
#2, JMPADD+2 ;BYPASS [NI 


ADD NIT 
me pa i RET TE DRGEANTE zen 
CLR -(SP) ; CLEAR R THe "Pou, LSI 11 STYLE. 


fey 8JMPADD , (SP) 
: JMPADD EXIT TO NEXT SELECTED TEST 
33 7: HERERe re eerenneeraneneceveesientateneeeeeHenteateteitnsaens 
ha iaelaielailallaileiieid-+-tahe-tri-t-tgh-t-t-- ft-lb tothe ttt 
FOUL OWING ROUTINES ARE INTERRUPT HANDLERS FOR THE 


| HHH HEP 
| AJ 


MOVB § VRBUF, CHRD “GET THE RE D 
BIC #200, CHRD OF aR NY BEAYEO 

CMPB —s_R4., CHRD *COMPARE RECEIVED TO XMITTED 
BE AND UPDATE PATTERN IF OK. 


Q 
TOFF: BIC #TCOMB,@VXCSR ; DATA OCCURED OR WE ARE DONE 
BIC WROENA,JVRCSR =; EIT WAY-EXIT. 
REEX: ale 


UPD4: #TENA, JVXCSR i ERDRTE et SP 
ASLB RY 
BIT aw ROTATED TO PARITY Bit? 


i, a esraet Fc ORPLETE FLAG 
——— oe TAM at XMIT INT. UNTIL LAST BIT REC. 


5 gE EEE EHH EH EEE HEE EEE A a a at 
s RECEIVE spre A ROUTINE .AFTER EACH 
WILL BE SET TO (RBBUF). 


Ds, Bee ig, ea Ph Ba 
eliot atl Pte TYE sh ed ate 


; SEQUENCE IS BEING ASSEMBLED. 


a a eee 


Bic Bier aVRCSR eae InTERRUPTS cer ore Re NEXT UNIT SELECT. 


—— -— +--+ ee ee a ne ee ee eee — 
ee 


' MAINDEC-11-D2VTH-B MACY11 27(1008) 11-FEB-77 08:58 PAGE 13-47 
DZ2VTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0063 


iCocatlone o¥Ro eno See ARE UseD 10 STORE EecnPe 


CTED, BUT NOT UTILIZED IN TEST. 
, annnnedousoenseseesuaaseereevesacSensneebasaarseusaesaceeantans 


014102 INTRC: 


eases 


(2) O14) 10146 V R1,-(SP) Rh 
Ais i By Wg OSL Hi osm wo 
2795 4114 036737 000100 002224 1 aTxSUm, VSTAT CHE CKSUM CALCULATION REQUESTED? 
ie 14124 0101 MOV R1,RS YES-S HAR. 
2798 141s O176NE JSR RO’ CALCK ‘YES-STORE 0 HE CHECK 
2799 O14132 005237 O3le2le 11$: INC ABLIFP bINCRERINT | THE RA DATA POINTER 
2800 014136 023727 O3l212 031276 CMP ABUFP, SABBUF +50. THE END OF BUFFER? 
oeoe orate B12 031214 031212 SOY isp ABUFP 
oB03 141 16177 015032 128:  MOVB Rj, ana Neetpe & DATA 
2805 141 2 000013 014772 art 7 ppoverroverrt — 8 on Esc 0? 
e806 eh B31 120 BNE aeEoe eae sessenat Ihc 
O17 rit a ay eames ety f DISPLAY CH.-STORE IT. 
ga08 Ol XOFF son, EOM 
2810 b1se03 on 00? 000001 014772 MOV ‘i ESAMB ie Sc ASSEMBLY FLAG 
e811 o1¥e10 052737 002224 BIS HESCVSTAT :SET SNe FLAG 
e5i8 OiNez6 123127 oo0023 1S: CHPB RL, SXOFF ote F RECEIVED BYTE WAS XOFF 
e815 OL isee O67 a? 100000 002224 BIS BRXOFF , VSTAT iYES, SET XOFF IN STATUS REG. 
2817 Bisse ift 27 000021 2s: CHP — co IF BYTE WAS XON 
2819 O14 100000 002224 BIC OFF,VSTAT ; CLEAR XOFF IN VSTAT. 
2820 O1uese 030737 000200 o02224 BIT aXMKIL, *VSTAT Gre XMIT KILL KILL BIT. 
B22 Ol4eb2 000100 165446 BIS 8TENA,QVXCSR  }SET XMIt INT. ENABLE. 
2823 14 042737 000200 O02224 BIC SXMKIC, VSTAT CLEAR THE XMIT KILLED FLAG 
oeoe 014300 rete 3S: CMPB ss R11, #SOM SEE IF BYTE WAS SOM 
Seo? DINSHe Geers? OOD 002224 31S: Gre  eASOM.VSTAT —'¥ES, SET SOM IN VSTAT 
£258 014314 000456 eR RSTER’ tEXIt ; 
014316 120127 O00004 4 Rl, YT ? 
uae eed ne ss ny TAT ie : Z ip VSTAT. 
B33 ii3se Wie nati ithaat MOV REBUE’ REUFP i hee THe “Bure POINTER. 
oa 14340 oie? a7 000100 o002224 BIC STXSU, VSTAT REQUEST BIT. 
2836 O14 ° 
14 63701 001752 S$ CHP CARRT, Rl ‘cme a ae oF ac 
2838 14 ie 1 001754 CMPB NFED,R1 Char = 
2840 14364 0627 001000 o02224 SIs Bre #EPL, VSTAT i a OF et INDICATOR 
2841 014372 000427 a a RSTER 





ee ee eee eee 


| LOS 
| 


MAINDEC-11-DZVTH-B MACYI11 27(1006) 11-FEB-77 08:58 PAGE 13-48 
DZ2VTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0064 
2842 

2843 otsiae 029737 014770 014766 6S: cHP RBUFP, REBUF 18 CIRCULAR BUFFER FILLED? 

Seu wos 3737 014764 014770 MOV RBBUF , RBUFP YES, RESET POINTER TO BEGINNING 
ee4e 014412 000020 002224 61$: BIT #COMGP,VSTAT § :RECEIVING GRAPHICS CHAR 

2847 014420 001402 BEQ 7§ 

eee 014422 162701 000137 SUB #137,R1 t YES-SUBTRACT 137 FROM RECEIVED CHAR. 
2850 O14426 032737 O00040 o02224 75: BIT SREVID,VSTAT § ; REVERSE VIDEO MODE? 

2851 O14434 001402 BEQ 70$ NO STORE R CEIVED BYTE. 

2852 014436 052701 000200 BIS #200, R1 $Y SE ORCS BYT? as REV" VIDEO IND. 
2853 O14442 110177 O0032e 70$: MOVB  R1, aRBUFP “STORE BYTE AND 

2854 O14446 005237 014770 INC RBUFP INCREMENT POINTER. 

seep 14452 005701 RSTER: TST Rl ;CHECK FOR STATUS ERROR 

2857 O14454 100014 BPL RECXT NO, EXIT ROUTINE 

cee O144S6 052737 oO04000 002224 BIS #RSTT. VSTAT ;SET STATUS ERROR FLAG IN VSTAT 
2860 O14464 027727 000326 177777 CMP aSTTEP, #-1 :T ABLE FULL? 

2861 014472 00140S BEQ RECXT iYES, of ROUT INE on 

2862 O14474 010177 000316 MOV RI, gSTTEP STORE STATUS ERR. AND CHECK 
2863 O14S00 062737 O00002 O1S016 ADD #2, STTEP i INOREMENT STATUS ERR POINTER 
cere 0145065 RECXT: 

(2) 014506 012601 Mov (SP)+,R1 ; FOR STACK INTO R1 

Sere OLNeeD Goines CoCode alu77e Asesc: Bir Agebe ASSEMBLING baer ¢ cH, 

2869 Ol 032737 000010 014772 BIT #81703, ESAMB ieee ESC 0 

2870 Ol 001062 BNE AESCO : 

2871 Ol iee701 000120 CMPB s«#120,R1 *CH.= A 

2872 014536 001004 BNE NO KEEP POHECKIN NG 

2873 pe O5<737 oo00002 014772 BIS s81T01, ,ESAMB ss YES- T ESCP ASSEMBLY FLAG 

ths 1 TeerOr 000077 10$: CMPB  #77.R1 *CHAR.IS AN ESC ? ? 

2876 014554 001403 BEQ 110$ YES-FAKE AN ESC 0. 

he] 1ee701 000117 CMPB s«#117,R1 ;CHAR = = 0? 

2878 O01 I BNE 11§ *NO 

2879 ieee 000010 014772 1108: BIS 081103, ESANB YES YES SET ESC 0 ASSEMBLY FLAG 

2381 Wer 123 1 oo20s0 11S: CHP ROCUR, Rl artes CURSOR POSITION? 

2883 idee z 000004 002224 BIS #CURPOS,VSTAT ;YES-SET RECEIVED CURSOR POSITION. 
cee Gisele Je770, oooos7 == is: Greg HECS,RL = BYTESTERNIN IDLE? 
2887 ieee O5e737 oo0002 002224 BIS STRINID, VSTAT iN-Ost TERM. IDENT FLAG IN VSTAT 
2889 i 4o20 ee 1 000106 2S: CHP #CKGP,R1 ;RECEIVED GRAPHICS CHAR. SEQUENCE? 
al o 1638 oer ar 000020 002224 BIS SCONGP, VSTAT YES-SET GRAPHICS DATA FLAG. 

oo33 O1eNe 4ee70 701 000107 3S: CHPB BNCKGP, RI sRECEIVED RESET GRAPHICS SEQ.? 
2895 O14654 042737 000020 o0e2224 BIC SCOMGP,VSTAT § ;YES-SET NORMAL CHAR. RECEIVE. 
28% O14662 005037 014772 CESAM: CLR ESAMB ‘CLEAR ASSEMBLY FLAG. 





MAINDEC-11-DZVTH-B 
11-FEB-77 08:24 


D2VTHB. 


eect a 


BO 


RROSRBRGS Grae oes 


[= 
f= 
Ton 

- 

= 


De ee ee ee 
poe pea pee Be be bee 
Ne See 


aS 
By 
Be 
Be 
Be 
2938 
2 
2941 
a 
Se 


Pll 
014666 


1 
014712 
014714 


Bes Sane 
YOSZE 


_ 
Oo 





reeers 
’ 
000000 
000000 
haaooa 
000000 
000000 


MACY11 27(1006) 


015022 


002016 
000040 


o02224 


MOS 


11-FEB-77 08:58 PAGE 13-49 
TYPE PROGRAM NAME 


BR RSTER 
AESCP: MOVB  RI.STRP 
BR” GERM 
AESCO: cree EEMP, RI 
BIS #REVID, VSTAT 
BR CESAM 
1S: CMPB «DEP, RL 
Be SREVID, VSTAT 
2S: NPB — 
CHPBO T,Ri 
BNE 4g 
3: S T, VSTAT 
4S: MOVB RI. STRO 
cesan 
RBBUF: .WORD 
REBUF: .WORD 
RBUFP: -WORD 
ESAMB: WORD 0 
STTER 
0 
0 
0 
0 
0 
0 
0 
7 1 
STTEP “HOR 
STRO: .WORD O 
STRP:  :WORD 


SEQ 0065 
;AND EXIT. 
;STORE ANY UNCHECKED FOR ESC. P 


-BYTESESC 0 -REV. VIDEO- ? 
‘YES-SET REVERSE VIDEO MODE IN VSTAT. 


;BYTESESC 0 DISABLE REV. VIDEO MODE? 
YES-CLEAR REVERSE VIDEO MODE IN VSTAT. 


COPIER 1? 
Tes SET REO FLAG IN VSTAT 


NO 
; YES~ oye ABORT FLAG. 
‘STORE ESCAPE 0 COMMAND 


;ADDRESS OF STAT OF BUFFER 
S END OF BUFF: 


;ADORESS OF ER. 
;READ BUFFER POINTER. 
ESCAPE SEQ.ASSEMBLY AREA 


STS aL SRE 


i ESCAPE 2 STORAGE 


5p RRRRERRE EERE ERE EERE EERE EERE EERE GREER EEE EEE EEE EE EERE 


N 
Bar IS ee 


F ACA pa aris 


PALL DATA INCLUDING 


TINE. 
N TethT ae ON WILL NOT OCCUR 
es tHE ROUTINE 
HE TRANSMISSION 
Ing TH stone u MEVOLE. THE 
it Be oe IN VSTAT AND XMIT 
NSNIT COUNT. XRCNT) MUST BE 
es Bon nul ECEED Bi, 
OH ADS) fit BE iS feb 


RO 
sstnuasuhdtsabentisbosessessttietelicetaettiatteccisettbaasseass 
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TYPE PROGRAM NAME 


INTXM: TST 
BPL 


BIS 
BR 


NOKIL: 
NOSOM: 


100$: 


10S: 


1S: BIT 


2e$: 





T - 
T s 
TBUFP: 


“WORD 


cad 
#XMKIL, VSTAT 
KIENA 


BLKM+1 

NOSOM 

$508 QVxXBUF 
KM+ 

XMCNT . 

100$ 

#£0M, IVXBUF 
KM 

aTBUFP 

1$ 

XMZER 

22 

lpm 
Df 

BBUF , TBUFP 

NBETL 


TBUFP 
NOKIL 


#CKSUM, VSTAT 





iy air Tee L Tee XOFF? 


seer MIT, KILLED pit IN VSTAT 


;SOM/EOM TRANSMIT? 


Nee ieee a ute. MESSAGE. 
Pa THEE OR aR. 


YES SEND EOM AND EXIT 


;OR COUNT 

XMITTING ZER 
tYES-XMIT NEXT BYTE F 
AT END OF BUFFER? 


;NO 
;YES-RESET BUFFER POINTER 


;CHECK FOR CH.= oy? IF SO DO NOT XMIT 
BYTE. ~~ ARE WE 


;LOOK FOR NON-ZERO BYTE TO TRANSMIT. 
;CHECKSUM REQUESTED? 


;YES,LOAD THE BYTE 
3 AND Rien 8 cae THE ee CHECKSUM. 


al END OF CIRCULAR BUFFER? e 
S, RESET IT TO START. 


pera GierEN Potnren 


;DECREMENT THE TRANSMIT COUNT 
iYES, CONTIN REQUEST ERRORS AND EXIT. 


eee 
nae NTIL EOM SENT. 
WHEN DONE. 


aly tte 


Se) XMIT. FER En ERSOLE 


Sante N LAST ADDRESS 


ONTAINS CURRENT LOCATION 
WITH NUMBER OF 


T:; .WORD O XMITS. 
Tey ieee eeRnesAHAEEAEEERAAEEO;SS 00000 EEEEEEEOOEOOHSREEEEEEH 





ee ee 


© ee ee eee eeee = 
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DZ2VTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0067 

0: ; SUBROUTINE To Iss ISSUE RESET To THE VT61, ENTERS MAINTENANCE MODE 

ae ,  aanunederrueescesecaceeneneeceeseesSUSEESHESGEOGEEOONSEEEEESEEO 

3008 015302 113737 001102 002230 scart MOVB © $TSTNM,TSTNM ©; LOAD THE TEST NUMBER IN ERROR PRINT AREA. 

3009 015310 013746 002170 MOV RO, -(SP ZERO ON STACK 

3010 015314 01374 002130 MOV RESET, -(SP) tt PUSH RESET oon STACK 

3011 015320 013746 O020S4 MOV ESCO, -(SP) PUSH ESCO ON STAC 

3012 015324 004037 013456 JSR RO, TESC G0 XIMT IT 

3013 015330 004037 015412 JSR RO; GETON ;G0 LOOK FOR XON. 

3015 pies3e pees 002200 INC TLCNT ‘Abb ; i FATAL XMIT COUNT. 

3016 015342 010037 001120 MOV . "NO XON ISSUE XON ERROR 

3017 01534 104017 ERROR 1 

3018 015350 1$: 

(2) 015350 013746 002170 MOV ZERO -(SP) ;;PUSH ZERO ON STACK 

3019 015354 013746 MOV MAIN, -(SP) :PUSH EMAIN ON STACK 

3020 015360 013746 MOV ayy ~(SP) ESC TACK 

3021 015364 013746 OO20IC MOV DRECT, -(SP) se DRECT ON STACK 

3022 015370 01374 002054 MOV ESCO, -(SP) PUSH ESCO ON STACK 

3023 015374 004037 013456 2s: JSR ROD, TESC 

3024 015400 005037 002224 CLR vstat an INT. FLAGS AFTER TERMINAL RESET 

3025 015404 005037 017076 CLR HDFLG CLEAR PRINT HEADER FLAG. 

3026 015410 O00200 RTS RO 

3028 eer tn tate gan ao ane ah ae hae Ee oe 

3029 - SUBROUT IT FOR AN XON. NO XON EXIT IS PC + 

oa  evenn SUERQUTINE, TO, MATT FOR AN XON. NO XON EXIT, IS PC, +2. 

3032 O15412 012737 OO04S4Y 002210 see MOV #300. , BUBCT ;SET_UP TO LOOK FOR 3 SEC. 

3033 015420 127727 013566 000021 1S: CMPB = JABUFP, #XON *RECEIVED A XON? 

3034 015426 OO141e BEQ GOTON : YES-EXIT. 

3035 015430 012737 1 017224 MOV #1, DCOUNT *NO-DELAY 10 M.S. 

3036 015436 004037 017162 JSR RO; DELAY 

3037 O15442 005337 002210 DEC BUBCT AT END OF DELAY? 

3038 O15446 001364 BNE 1$ ; 

3039 015450 062700 ooD002 ADD #2, RO YES-SET UP ERROR EXIT. 

3040 015454 GOTON: RTS RO 

as 22 SEARLS SEAR RESAARE SERA R ERLE RELA A ERASER AA RKRARARAARRAA RAHA AA KARAS 

3044 ; SUBROUTINE TO ISSUE ESCZ AND LOOK FOR A RESPONSE-EITHER 

3045 8 -1 OR THE RETURNED IDENT. THE -1 INDICATES NO 

3046 ONSE FROM THE UNIT UNDER TEST. 

tall TTT ETT eT ier ieTrerTerertrtrrertiirititirrtr ett tt ttt rrr tt ttt 

303) BIENEE. 012637 015514 ae (SP)+. ROSV1 “POP STACK INTO ROSV1 

3050 015462 01374 002170 MOV asZERO, -(SP) tt PUSH #ZERO ON STACK 

(2) O15466 01374 002126 MOV QESCZ,-(SP) ;:PUSH @8ESCZ ON STACK 

3051 015472 004037 013456 JSR RO, TESC :G0 ISSUE ES2 SEQUENCE 

3052 015476 01274 106003 MOV #106003,-(SP)  ;-PUSH #106003 ON STACK 

3053 015502 004037 013214 JSR CTA *G0 READ THE CHARACTER 

3054 O15506 013746 015514 MOV ROSVI, -(SP) ::PUSH ROSVI ON STACK 

3055 015512 000200 RTS RO 





co 
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COB 


MAINDEC-11-DZVTH-B MACY11 27(1006) _11-FEB-77 08:58 PAGE 13-Se 


DZVTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0068 
3056 015514 000000 ROSV1: .WORD 0 

3058 Ee EN OUTING 10 CHECK SOFTWARE STATUS REGIGTER (VSTAT) 
3059 sROUTINE TO CHECK SOFTWARE STATUS REGISTER (VSTAT) 

3060 RECEIVE FLAG 5 ORL ST RERED WITH ANTICIPATED 

aes ,  AEUDSEEEECENEOSSSSEDTEROTOESSSSOMAEESESSOOSESEOGEEEENESSEOENEES 
3064 O1SS16 snarts 

(2) 015516 012637 002222 MOV (SP)+, ROSVE : «POP STACK INTO ROSVE 

3065 015522 010137 002164 MOV Ri, SVERI save 

3066 015526 010237 002166 MOV Re; SVER2 

3068 015532 012601 MOV (SP)+,R1 ; “POP STACK INTO RI 

3069 015534 013702 o02224 MOV VSTAT; Re ‘SET R2 EQUAL TO VSTAT 

39 an 015540 042702 003576 BIC #003576, Re CLEAR NON-ERROR BITS 

3072 O15544 20102 CMP R1.Re :COMPARE ANTICIPATED TO ACTUAL. 
3073 015546 001432 BEQ NOER *NO UNUSAL BITS EXIT 

apoE 015550 010137 001124 MOV R1, SGDDAT ;MOVE GOOD STATUS TO MESSAGE 
3076 015554 013737 O02224 001126 MOV ystRr, SBDDAT MOVE BAD STATUS TO MESSAGE 
3077 015562 104003 ERROR ISSUE ERROR MESSAGE 

3079 

3080 5 Je SEE SE 96 J EEE 9 9 EE SG EE a dE a a dd 
Spa ROO Te eaFUe BITE. (Xe DCOS” “CHARACTER TRANSFERRED (000 xX X) 
aes Werrtitiititiiiiitititiiitiiiiitiititiitiiiititiiiririrtirtgos sy 
3085 O1SS64 012701 014774 MOV aSTTER, RI ;SET R1 EQUAL TO FIRST ENTRY 
308 015570 013702 O1SO16 MOV STTEP, Re SET Re EQUAL LAST ENT 

3087 015574 OeD10e 1S: CMP Ri. Re * ARE THEY E 

Soe DISEGD DOTOS? O1S6ED hoe SEE Re aay DONTEES 0 EXIT. 
3090 015604 013737 001732 001120 MOV VRCSR,SGDADR  ;LOAD ADDRESS 

3091 015612 017737 164114 001124 MOV QVRCSR, SGDDAT  ;LOAD CSR 

3092 015620 112137 001126 2s: MOVB (R1)+,$B80DAT _; CHARACTER AND 

Spa Oleeso | tpabae eS eNBR grt t SBORORYL PU ERROR Messace ee 
3095 015632 000760 BR 1S ;00 

30% 015634 013701 o02164 NOER: MOV SVER1,R1 "RESTORE R1 AND 

3097 O15640 013702 O0e1b6 MOV SVER2. Re *Ro, 

Spo Deeee OL S7HG pazon 015016 A MY SH ROSVE On ETA LER 

015656 000200 RTS RO tex 


gee OT OE or toe geet 
TINE TO CLEAR ERROR/DATA OUTPUT LOCATIONS. NEEDED 
WHEN DISPLAYING BYTES IN WORD LOCATION 
ete A Ot, SES 
CLREG: CLR SGDAOR 
CLR 


WWWWWWWWUWW) 
eh 
SBIFREBREB 


_ 
Oo 
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aie 018700 000200 RTS 
eeeinrrtenrerm rue rurur 


See etibtie MENA dR 


Ww 
ep 


114 
a8 
3116 WITH NTRY TO SUB- 
ai gee RST Tie too Sy Pio on 
3118 LOCATIONS VELY. DEFAULT : IS THE REC. BUFFER. 
at $3 KKESSKERHESSRRA SES SHERAREA SSAA LLAASERAAARARELARREARERA KSLA LS SLE 
31 015708 XMREC: 
iss of eae + ta FORA. o9h One MIT. 
ais3 Bies?s Bis53% goseos BREESE tea aa aby der Av SKIL. 
1 015720 013701 1615 HOV BYSTOR, RI alt Fines POINTERS 
Biers eegted 164000 BIS nay avXCSR at INTERRUPT ENABL 
01 061466 002224 XMITT: BIC #61466, VSTAT C Aa Fete ,REV.VID., PARA. DELIM., IDENT, CUR. 
blaze 1S: R DLAY 
1 1 ooe224 T SXMONE,VSTAT =} Mt 
15756 001015 BNE 3$ sYESHt Cox FOR " RECEIVE DONE. 
ieree bier a? o20000 002224 2S: I BREON, VSTAT CEIVED AN EOM? 
bae7sP 1o000c c0e2224 20S arr SEROFF VSTAT Nes-00 IS XOFF SET? 
176 " -:BEQ ; NO-STILL TRANSHITTONG. 
002220 DEC DLAY :YES- 
1364 BNE 2s WAITING FOR XON 
000416 BR XMAD2 "NO XON-REPORT VT61 FAILURE. 
ABUFP, RS sLOAD CH. RECEIVED FLAG 


013705 031212 3$: 
002220 
Gs737 020000 002224 4S: 


002220 S$: 


Woz 
“TO 
4np< 


SET Lv CEIVE DELAY. 

TES CK Oy STORAGE. POINTERS 
: CHARACTER? 

;YES T CH. FLAG AND DELAY 
;AND K LOOKING FOR EOM. 


RO ‘TI CURRED-SET UP ERROR EXIT. 
FFceNT tTACRESENT FRYAC XMIT COUNT. 


8 
aan 
ae 
Bx 
3 
santo 
5 
23g 
z> 
Dw 


g 


FO SSHUER LOOK ESSSFHESS=ASSBVRKR PEE SBBVSR RPS URLS 
ONOOOOOOO OOO OOOO OOOOO00000 200000000 
BSSRERURSTERRENER SRRBS 


WI WWII GI) WWI) WWW) GIGI) GI) GIG) GIG) G) GI GI) GG) GI GIG) GG) GO) GG Gd) GI GI GG) 
el ed ee ee ee ee ee ed ed ek ee ee ee ee 


ee eee ee te ee ae ee ee a ee ee be Be pe Be Be hs be Be be be ee 


XMAD2: 
Bese Soeens Te 
004037 016266 ey I : AND REST ALL INTERRUPT POINTERS. 
1 CKSTR: CMP Rl Re ST INT CLEARED? 
—_—_ Eo Reon Sagas 
ithe BEQ STRBYT ° iRBCES STOR 
61 , ss BR. —_ iS, Seek iT LTERATION COUNT. 
ptee eat STRBYT: TST Rl : STORING A CHAR 
6110 001402 BEQ CHKI :NO 
bll2 117721 176646 MOVB @RBBUF , (R1)+ :ST ORE A oo BYTE 
pil’ 016150 CHKITT: DEC RECITT : DONE FE VING 
61 1305S BNE XMITT :NO- LO SE BAOUT INE 
612% 004037 020710 JSR RO, CKOFF : SEE IS XOFF IS UP. 
6S 6130 CKYST: 





O6 
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(2) 016130 012746 060001 MOV #60001,-(SP) | ;;PUSH #60001 ON STACK 

3166 016134 15516 13 RO, CKSFT 

| 3167 016140 16266 JSR RO’ RESPTR RESET INTERRUPT POINTERS. 

| 3168 016144 MOV = (SP)¢, TACK RS 

: 3165 OS161%6 XMXT: RTS RO LEXI nN 

| 3170 016150 RECITT: .WORD 0 RECEIVE TERATION COUNT. 

3171 O1615¢ TOR: . 0 sHORD § POINTER 
3172 161 BYSTOR: .WORD 0 ‘BYTE ST POINTER 
3174 5 5 RRRRERARERLRE SELLA SERRA ELAR E AREER ARERR AREA RE RRAA ELLER E EL EE 
3175 -SUBROUTINE TO XMIT THE BYTE AT TBUFP. 
3i%e riiiiiittt ttt iiiititiitiitititi tii iiti iter ererierererergg! 
1 16156 XMIT1: BIC #1, VSTAT AR XMIT F 
3158 Bleies Bres50 yt wach ERR TE RT 1 BYTE 
3180 016172 163536 BIS #TENA, aVXCSR 
a3 star sa MOV r (SP) #XMONE ON STACK 
3182 Besos MOV #1,-(5P) i BUEH #1 ON STACK 
Tt piesic ane Ee oe :C00K FOR aut BORER FLAGS AND EXIT 
3185 ptesie : NORMAL ie 
3186 O16220 FILEXT: CLR VSTAT “CLEAR ANY FLAGS 
3187 016224 NORXT: RTS RO :AND EXIT 
3189 5 LEARREAARAE LAL E ELLER LEELA ERE EEE RR ELAR REE RR ERLE RE LEE 
3130 ; SU OUT INE TO. ISSUE A BYTE AT A TIME UNTIL A ZERO 
te irri itirtiitititttiititi ti tii iiitiiritiereriiicrc rere solos 
3194 016226 112777 OO0002 177042 LDXMIT: MOVB § #SOM,aTBUFP ;SEND THE START OF MESSAGE. 
3195 016234 000403 BR 
31% 016236 112377 177034 1S: MOVB (R3)+,aTBUFP ;MOVE A BYTE TO XNIT BUFFER 
3197 Ol6242 001403 BEQ LDOUT IF A ZERO BY TE-EXIT 
3198 016244 004037 016156 2s: JSR RO, XMITI ; GO XMIT A 
3199 016250 000772 BR 1$° T AGAIN. 
3200 016252 112777 OO0004 177016 LDOUT: MOVB | #E0M, aTBUFP SEND THE END OF MESSAGE. 
3201 016260 004037 016156 JSR RO, XAIT 
3202 016264 o00200 RTS 
3204 pT. Loe ae 
3205 TO RESET ALL INTERRUPT POIN 
3206  pumnan OUTLINE, TO RESET ALL, INTERRUPT POINTERS annneaes 
ae sf 042777 000100 163442 satis BIC aTENA, QVXCSR -CLEAR INTERRUPT ENABLES 
3209 013737 014764 014770 MOV *RESET RECEIVE BUF POINTER 


pista, Blasee BiBEyP y tte ie eae RECEIVE STATUS ERR POINTER 
005037 015300 
016150 csr a ee ea eho COUNT 


I 
005037 016152 CLR HosTOR ‘CLEAR STORAGE POINTER 
905037 016154 CLR BYSTOR 


ee ee ee ee ee en 


mae 
¥ 
5 


3 
gel 
31 
321 
3el 
sel 
gel 
321 


WONTW CWO 





FOG | 
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| OZVTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEG 9071 


3220 paasoenneennsnnonaneanessnenenocraversenssntasonntasesqnnnennan 
el ; SUBROUTI 0 ISSUE CURSOR POSITION ERROR. GOOD 
| 3222 {CINE/COLURN PUT BE WORD ON STACK. ERROR 
3223 “POSITION IS EXPECTED TO BE @ RBBUF. 
| see ritiititiiitirititiiititiriiitiiiiiitiititiititiitiiittiiiee 
| S25 DIESE occa? poe2e CURER: 40V (SP) 4, ROSVE -POP STACK INTO ROSVE 
3227 Biesee BiSea> eats MOV (363° CORD it pop St STACK INTO CHRD 
asc8 pibse te 020040 Od021b2 SUB #20040. CHRD tEXT TRACT MOD 4O FROM GOOD POSITION 
1 015660 JSR RO, CLREG 
3230 016370 113737 002163 001124 VB CHRD+1, $GDDAT ;LOAD MESSAGE WITH GOOD 
3231 Riese AE Le lé2e 001120 MOVB C iLINE AND Seartt 
3e3e O164O04 017737 1 002162 MOV . cL AND UMN. 
3233 O16412 162737 002162 #20040, CHRD ;EXTRACT MOD 40 FROM BAD POSITION 
3234 016420 113737 002163 001126 MOVB CHRD+1,SBDDAT  ;LOAD MESSAGE WITH BAD 
3235 Ol6426 11 002162 O01l22 MOVB CHRD, SBDADR *LINE AND COL 
3236 O16434 104 ERROR ; ISSUE free 
3237 O16436 013746 002222 MOV ROSVE , -(SP) ;;PUSH VE ON STACK 
a 016442 RTS 
yy 5p ERE AEAE AEE SE A EEE AEE SEE ES SS GS A aE a EA EH EEE 
3242 ; HAHECTTALEPORERUEOERESEEREREERLESSESEESESEOSSESEERESOREEEEED 
asig ; THUS IS. PECASRENT CUSROR Post rien aA 
COL 1 20 COLO ;ROW 17, COL 157). 
ei ,  aunnnndineuseeusassssbiuseecensseasheseceushsassscesenaebensees’ 
3247 O16444 123727 016551 o00040 nti CMPB LNRW+1, #40 sAT LEFT EDGE OF ROW? 
59 Sieed ite 016551 BE Cg Newel :YES, DECREMENT COLE” AND-E EXIT 
3eS0 O16460 000200 RTS R 
Ses BENTO Dbits CLOTSO CoCKNO ss ee bere eNO S, CRENENT POSSIBLE-EXIT. 
3525 ate 105337 016550 DECB LNRW Ne “rEGAPESREMENT P 
32S4 O16476 112737 000157 016551 MOVB #157, LNRW+1 :SEt COL. TO RIGHT EDGE. 
3255 016504 000200 2s: RTS RO 
3257 HEHEHE HEHEHE HEHHEHEHHEHEEHIHHEHIEHEHEHI HEHEHE HEHEHE 
3258 ; SUBROU TINE TO te ge! — POSITION Mm, ° pen 
3 NCE (IE. ROW 10, COL 78, ROW 10. COL 7 COL 0). 
scot ,  nunnnnbscsrioesaseebucosasshatscanrhacssanriacsiasrhenssareehes 
Ra pt 37, 016551 000157 CPPOS: CMPB LNRW+1, #157 ;AT RIGHT OF ROW 
16514 14 BEQ 1$ iYES, ADJ ROW AND COLUMN. 
3264 Tees: 105237 016551 a8 reed m0 "INCREMENT COL. COUNT 
aaa ste 1 016550 000067 1S: CMPB LNRW, #67 
3267 please Opes BEQ cs Hes, No Serr fi ee 
3508 Bieeto 112937 5p80s0 016551 tOve STO LNA! NO gor" TO L 
3270 016546 000200 2s: RTS RO’ 
3e7e O16550 o00000 ee WORD O CONTAINS UPDATED CURSOR POSITION. 
sre Macaunieeosanestensanneseeauanisesusaerenseaeeseasaaencnaaaneat” 





ao ee + ee 
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| 3275 TO XMIT c . DATA ERRORS 

376 BRE, REPORTED F Meee i F one T IT OR 
ene L abr , 1 EXIT FROM SUBROUTINE WILL 

3278 ;BE NORMAL SUBROUTINE ENTERED WITH (R1)= 

3279 ;G000 DATA BuFrER, "(R2)=RECEIVE DATA BUFFER AND 

3280 IF THE VT61 DOES NOT HANG, THE ROUTINE 

3281 Ht LL WAIT FOR NNO OF REC. MESSAGE (EOM). 

3283 

3284 .. SERASRAREARSAASSSLARAEARARAAARARSSEASRERALAREREAERELALARALEAL RAKE 

3286 016552 XRCMP : 

(2) O16552 O10446 MOV RY, -(SP) ; ;PUSH R4 ON 

3287 O16 CLR RY’ Ry 8 Ru a 

3288 Ol 12737 001001 o02226 MOV #1001, BLKM /EOM TRANSMIT. 

3289 O16564 042737 077577 O0e2c4 BIC #77577, VSTAT ial le Pt FLAGS BUT XOFF AND XMKIL. 

3290 O1bS7e 100 163136 BIS #TENA,AVXCSR =; SET 

3291 Ol 1 CLR : 13 PRINT FLAG 

3292 O16604 012705 031162 MOV #TCRLB+450,RS ;:RS IS ERROR ST POINTER 

3293 016610 1S: CLR Y ;SET UP TIME DELAY 

3294 016614 1 002224 BIT 8XMDNE,VSTAT = XMIT hones 

3295 016622 O01014 BNE XREC YES-GO RECEIVE 

3o% o1 bbe 023737 014764 014770 2S: CHP RBBUF , RBUFP se RECEI OPERATION BEGUN? 

3298 016634 100000 02224 BIT SRXOFF,VSTAT § :XMIT HOFF 9 

3 bite Gives OO fo IS /ROCAEEP LOOKING FoR xT DONE? 

3301 O16650 001365 BNE 2s ‘FOR XON OR RECEIVED CH. 

3302 016652 000432 BR XRERR TRANSMIT TIMEQUT-SET UP ERROR EXIT 

oa 016654 005037 002220 XREC: CLR DLAY ;SET UP TIME SUT DELAY 

3305 016660 014770 1S: CMP Re, RBUFP j INSURE COMPARE POINTER 

3305 016564 10 BLO "LESS THAN RECEIVE POINTER 

3307 O16666 o20000 o02224 BIT #REOM, VSTAT :RECEIVE EOM? 

3308 016674 001030 BNE XREXT ‘YES-SET UP TO EXIT 

3309 016676 002220 DEC DLAY RUN TIMEOUT DELAY 

3310 016702 001416 BEQ XRERR *TIME OUT OCCURRED-ERROR EXIT 

S312 DLe7e 2s:  jnc oe REO T TO RECEIVE COUNTERS 

3313 016710 eats CMPB ss (R1) +, (R2)+ :C CREB TERS 

3314 016712 001407 BEG 4g > EQUAL AGAIN 

3315 016714 O20S27 O31212 CMP RS, #TCRLB+S00  ;ALLREADY ST SO ERRORS? 

3316 bib7e0 103004 BHIS 4§' iYES STORAGE 

3317 O16 114125 MOVB -(R1),(RS)+ :S A 

3318 016724 ives MOVE (Re), (R54 :ST DATA 

3319 O16 10425 MOV *L cel COUNT 

3360 16 1 BITB Faljs, cR2)¢ RESET 

1 O16 4g: DEC R3 ‘CHECK COMPARE COUN 

3322 O16 001410 BEQ XREXT ALL DONE-EXIT 

3323 167% b007H6 BR XREC iC ANOTHER 

3324 01 XRERR: ADD #2, RO ‘SET UP ERROR EXIT 

3325 016744 005237 2 INC FTLCNT INCREMENT FATAL XMIT COUNT. 

2328 616750 Olb266 sk RO, RESPTR ‘RESET INTERRUPT POINTERS. 

3328 016756 XREXT: 

(2) 016756 O1e746 o20000 MOV #REOM, -(SP) ;;PUSH #REOM ON STACK 





- a me - ae - ee | ee 
ee ee 


HO6 
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DZVTHB.P11  11-FEB-77 08:24 TYPE PROGRAM NAME SEG 0072 
| 3353 Bt p7be BbG3? pono; MOV #4,-(SP ; ; PUSH #4 ON STACK 
ISR RO; WT GNO 
| 33 pteseg Oe 031162 gr TOR B+4SO RS NOM EXTRACT TERROR COUN COUNT: # ‘were. 
a5 Bier feet aby RS.RI ‘ 
3334 01 031162 MOV eTCRLB+4S0,RS_; RELOAD ER SINTER 
Be i a f 
i 1 7 017076 er NOLS : ae Ll oy ST ITED? 
33 1701 rate ee Vy iYeS-g FS S WERDER PR 
333 ot Odse¥s 917076 FRG LG ‘crt HEBOER Brie Fi 
3341 017026 15660 1S: ISR RO, CLREG “ERROR WAS LEGTIMATE. LOAD 
O1703e 112537 001124 MOVB (RS) +, SGDDAT sFRROR MESSAGE AND ISSUE 
3345 1 112537 001126 MOVB (RS) +, SBDDAT 
3344 017042 012537 001120 MOV (RS)+;SGDADR § ;LOAD RECEIVE COUNT 
3345 017046 1 ERROR 4 Jase Dat TA COMPARE ERROR 
3346 Ol 162701 000004 SUB #4,R1 COUNT 
33ua O170Se GOues? 020710 yrout: $e RO, CKOFF aise ibaa 
330 eee boaase eat nor e000], -($P) ‘AneeK TAT BY ZstaTUS ERR. 
Ser Biers Bt ako mov SPS RY Geox, Fon VaTR 
3350 017074 o00200 RTS RO :EXIT SIBROUTINE 
3354 017076 o00000 HDFLG: 0 ; INHIBIT PRINT FLAG. 
se 33 SKSAALARA RESALE ASRAASALARAALRKRALARASRARAARALASRAERASALAALAAAEAERE 
3358 ;SUBROUTINE TO CREATE A ’RULER’ IN LOCATIONS 200 
3308 TO 317. 
fea ss HKASKLARERSREERREERRE ERE LA REAARERARERARRERARAARERSRRAAREAAHRELE 
ses CAD Gieree TERRE CARAS TY ERED RL 1 ROUTAN a Bers cons. 
ed 17110 110221 1$: MOVB Re (R1)+ i060 IN “hae "ave 1 IN XMIT BUF. 
3366 01711 1 031032 CMP #TCRLB+320,R1 RULER COMPL 
ea Bt7t Bree ORS 
171 T :AND EXIT. 
3369 017122 105202 2s: INCB sR ‘INCREMENT ASCII BYTE 
3370 Oi71e4 ice70e 000272 CMPB s«#272,, R2 "END OF REVERSE VIDEO? 
1 0171 I BNE 3$ *NO-SEE IF END OF NORMAL. 
3378 O1713¢ b1e70e 030660 MOV #030660, R2 :SET UP TO ISSUE REVERSE O. 
His eee ome =, waren ee 
ie at 1361 ’ BNE is’ AV bE0 STRING. 
3376 017146 012702 130460 MOV #130460, R2 ES-SET UP TO ISSUE NORMAL 0. 
3377 17 15¢ ipee! SS: HOVE Re, (R1)+ g IT 
17154 1 INC R T ee TO NEXT 8 gsc! CODE 
3379 017156 000302 SWAB Re REVERSE VIDE. NODE 
$380 017160 000753 BR l 'BEGIN NEX TRING 
3382 nepaeee oT EC OT a es 
3383 ; SUBROU DELAY forts THE NUMBER INLOCATION 
3364 :DCOUNT. THE Babee es TYPE pre ne TERNINES THE ® OF LOOPS 





mm LN —_————— —- 





MAINDEC-11-DZVTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-58 | 
D2VTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0074 
; REQU TO DELAY 10 M.S. FOR ONE ITERATION. LOCATION 
338 PruLT 15, PRE=L A aa Se a ai 
a0 a ee 
| 3390 017162 olga 
| (2) 017162 010146 0 R1,-(SP) ; PUSH RI ON STACK 
(2) O17164 010246 MOV Re. -(SP) PUSH Re ON STACK 
3391 017166 013702 017222 1S: MOV PMULT, Re Coad PROCESSOR MULTIPLIER 
3392 017172 012701 002570 2s: MOV #1400: ,R1 ‘LOAD 10 M.S. DELAY 
3393 017176 005301 DEC RI *RUN BASIC DELAY 
33% 017200 001376 BNE 2 
339 017202 005302 DEC R2 :RUN MULTIPLIER DELAY 
33 bth ppe355 017224 Be SS OUNT ;RUN ITERATION COUNT 
| 3345 Bt7S08 Bbes32 BNE «1 
3399 017214 012602 MOV (SP)+,Re ;;POP STACK INTO Re 
(2) 017216 012601 MOV (SP)+°RI ::POP STACK INTO RI 
3100 017220 000200 RTS 
3402 017222 000000 PMULT: 0 ;PROCESSOR MULTIPLIER 
$103 017224 900000 DCOUNT: 0 ITERATION COUNT 
sine 33 AEKAKLAARAREAARA SALA LARA ALARA ARSE RRERARARRRRERERRARARARA RHEL AA EE 
3407 ; SUBROUTINE TO GENERATE A INCREMENTING PATTERN AT 
3408 :(R1)+. ENTER WITH R3 EQUAL TO # OF CH. TO CREATE. 
3409 RS IS UTILIZED AS A WORK REGISTER. 
ai Es + HERARKREKAAAA AEA RAEAALARSRRSRARE SEERA ARAAAAERALARARARRARAAKA KEES 
3413 017226 012705 00004! BLDINC: MOV #41,RS s LOAD RS WITH INITIAL CH. 
3414 017232 110521 BLDINA: MOVB RS, (RI1)+ ‘MOVE ACH. TO BUFFER 
ig fies Gries s ABT Se Pone Pe Ten 
S418 Diveue TDSe 2s:  iNeB RS Toe 
3ui8 BSS 103502 000177 ; CMP! #177,RS Patient N EXCEEDED NAX? 
3420 017250 001766 BEQ BLDIAC 
sel 017252 000767 BLDINA NO ISSUE TOU RRENT PATTERN. 
3423 
a gs AERA RALAARASRRE RE REA RRA RRRAE RR RARE RARE RARE RARRRRAE RARE KRRRA EKA 
3426 -SUBROUTINE TO FILL THE SCREEN WITH INCREMENTING DATA 
pat 5 HEHEHE HHHEHEHEHBHIHEHIHEHE HEHEHE HEHEHE HEHEHE EEE EEE 
3429 017254 042737 077577 OO2224 anaes BIC #77577, VSTAT ;CLEAR INTERRUPT FLAGS. 
3430 017262 teat 015272 MOV TBBUF , Ri 
3431 O17 ebb 01 900500 MOV #320. 'R3 sFILL XMIT BUFFER WITH INCRE- 
5435 17 She 1 eae 015300 10S oo erench ee sreNTING TO unt? 1920 BYTES 
33 Bt 3S0R ae entry 162424 ds an TENA, aVXCSR 
3436 017312 032737 000001 o0e224 1S: BIT BXMONE,VSTAT —§ ;XMIT DONE? 
3437 017320 001774 BEQ 6 :NO 





| MAINDEC-11-D2VTH-B 
DZ2VTHB. P11 


PSERERERMAUR ssc aateda aerate sss ste: 


2 
3 
OOOO OOOO0000000 


SeaRREERE 


22 
#8 


3492 


ESSN 


bt bn be sb ae be ame pe hs ee hp 


32 
<r 


BPPPPFPF? 
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017472 
017476 
017500 


MACY11 27(1006) 


11-FEB-77 08:24 


cs 


eee 





002164 
000370 002164 
000060 002164 


000040 002167 


177770 


11-FEB-77 08:S8 PAGE 13-59 
TYPE PROGRAM NAME 
5 HMEHEHEHHHHHHEEEHHHHHEHHEHHHHHHHEHHHHHE HEHEHE it 


;SUBROUTINE TO RESET VT61 AND DISPLAY MESSAGE 
:POINTED TO BY Re. 


55 SERRE SEE EE EE EE EE EE EE J J a EH 
DSMES: JSR SETY sRESET THE UNIT AND WAIT FOR XON. 


BIC Roe VSTAT CLEAR ALL FLAGS EXCEPT XOFF AND XMKIL. 
MOV #5, XMCAT i PRE~LOBD XMIT 

MOV Ri O80 XMIT nREFER WITH: 

MOV #SOM, (R1)+ + START 


MOV ORECT, (R1)+ ;DISABLE RECT AR MODE 
NC T INCREMENT TRANSMIT COUNT 
MOVB  (R2)+,(R1)+ ‘DISPLAY MESSAGE 


BNE 
MOVB - #EOM, (R1) s TERMINATE WITH END OF MESSAGE. 
; § TENA TENA OVACRR :XMIT IT AND WAIT FOR 

2s: : DONE 


Q 
RTS RO 
5 EEE SE EEE EEE JE 2 26 JE EE JE A A a a a a a a aa 
; SUBROUTINE TO CONVERT * BINARY CHARACTER 


TO 3_OCTAL CHARACTERS. Rl CONTAINS BINARY 
i RESULT IS STORED IN LOCATIONS SVERI, 


ij NO ee cee oe Oe eee a ae 
N : 

MOV RS,-(SP) : 

MOV #2;RS + OBB ERATION COUNT 

BR 2g t BYPRSES SHIFTS FOR 1ST CONVERSION 
1S: ASRB sR 

BORE RI ;SHIFT A CHAR INTO POSITION 
2s: MOVB RI,SVERI(RS) § ;STORE THE BINARY OFFSET 

BICB #8370,SVERI(RS) ;CLEAR NON ESSENTIAL BITS 

BISB #60,SVERI(RS) ;CONVERT OFFSET TO OC 

DEC Re *DECREMENT CONVERSION COUNT 

BPL 1 NOT c HE 

MOVB #40, SVER2+1 *LOAD A 

HOV (SP}+, RS POP STACK INTO RS 


posdonsosonsosusegnaqeeosnenssentespesnpeseteesesseasenecesanees 
; SUBROU OUTINE TO a REG 


;R1 TAINS OCT A. 
Se I NR lot Re 


OCTBIN: BIC #177770,R1 prey OCTAL COMPONENT 
TST Re FI RST CONVERSION? 
BEQ NOSHF T ‘YES - DO NOT SHIFT 





SES 0075 


r- 


ee eo ee a ee eee 


ra 
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| DZVTHB.P11 © -11-FEB-77 08:24 TYPE PROGRAM NAME SEQ O07E 
3493 017502 006302 ASL R2 ;NO - SHIFT PREVIOUS CHAR. 
344 Ol ASL Re 
9S ol ASL Ro 
9% 017510 0601 NOSHFT: ROD R1,R2 ;ADD CURRENT CHAR. 
3137 017512 000200 RTS RO 
33 j NANETTE th uate FOR CR EROT VIET IMMER TEST 
TINE TO WAIT FOR C/R FROM VT61 UNDER 
sept ere ene TO MRET FOR, C/R FROM VIEL UNDER, TEST, 
3503 p17514 032777 000200 162210 site BIT wRECON, BVRCSR ;WAIT FOR REVEIVE DONE 
1 1774 Q - 
3505 017524 1e7737 162204 001752 CMPB SVRBUF , CARRT iC as. = CARRIAGE RETURN? 
eo bree REE mw oa 
3509 
3510 ER ET UROITINE TO GT A CHARACTER (MMERIC) FRON TE 
3511 ; SUBROUTINE TO GET A CHARACTER (NUMERIC) FROM THE 
318 ; CONSOLE. IF OTHER THAN A NUMERIC IS TYPED A 
wit : BUTT errrrretteriettriiirett tir tT ttt titi TTT TT ttt) 
351 004037 013576 GTNUM: JSR CONRD :GET A CHAR 
15 012601 MOV FoAS9 Ri '-POP STACK INTO RI 
3518 122701 ooo0s4 CMPB 4 Ri =COMMA? 
3519 001411 BEQ 1  YES-GO PRINT IT 
123701 001752 CMPB  - CARRT,R1 ‘CHAR. = CARRIAGE RETURN? 
001406 BEQ i$ 
t5a451 ome ie a a F CHAR. IS LESS THAN 60 
{oais4 000067 a ay #67 ‘oh MORE The 87 Eo T 
101016 BHI QUST :A cuecTIOn 
1101 ? are 1S: nove Rl. TYPNUM 
toad 1754 CMP UNFED,R1 
001406 BEQ 


0017Se2 CMPB ARRT,R1 T UP TO ISSUE 
BNE TEXT ft NPEED “BEFORE EXITING. 


;GO0D CHAR., EXIT 


; TYPE QUESTION MARK AND 


77 017644 QUST: MO S77, TYPNUM 
yee More TYPNUM 
:KEEP LOOKING. 


ess 
g 


- 
+ 
=+ 


OOO OOOO OOO OOOO OO00O000000 
bb Oh Pb bb = 0 PP be bP Be a hb 


FisReRRERDOR SNR e ENMU T eR 


: i 
<< 

+ 
ta 
oo 


SBE OF RS. RY TS STORAGE FOR THE CHEEKGUN 


i CHARACTER ALGORITHM FOR CHECKSUM IS ROTATE 
T ONE Pyne cf Lerr Ba AND XOR NEW CHAR. CHECKSUM 
Te te THE LOWER T 


S582 SOR tRAT OR Bae N ES 


RRR 
bE 





ee —— -— eee ee 
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| Pll L1-FEB-77 08:24 TYPE PROGRAM NAME SEQ 0077 
5 RRRERRRERERRE RARE EEE EELALAE REAR RRA A ALAR REESE EERERE ARE REEL ERLE EE 
Tou 04 77400 CALCK: BIC #177400,RS ;CLEAR UPPER BYTE OF RS 
I CMPB ORS. BXON tCHAR. =XON? 
765 00141 BEQ —- NOCALC ‘YES 00 NOT CALCULATE CHECKSUM 
000023 CHPB ORS. SXOFF CHAR =XOFF? 
7e64 001412 BEQ  NOCALC ‘YES DO NOT CALCULATE CHECKSUM 


1 CL SIN ARRY BIT INITIALLLY CLEAR 
rasa TSTB. ORY aati SOrROTATE RY 
BPL Ss tA FULL 8 BYTES 


pees 
7672 
7674 000261 SEC :R4 WAS NEG. SO ROTATE A ONE 
06104 1S: ROLB sR ‘INTO LOW ORDER BIT. 
1 MOV RY, R3 
BIC RS'R :NOT A AND B 
7708 O4040S BIC RY’ RS NOT B AND A 
a its cae ORe RG TEQUAL NEW CHECKSUM 
7712 000200 NOCALC: RTS } : 


5 RRREEAAARRR EEE E RESELLER EERE EERE RARER EERE RE ERRA REE A RELL ELE EE 


3571 «SUBROUTINE TO LOAD XMIT BUFFER FROM RO THRU RI 
372 5 HEHE HAIHHEHEHHHBHEHEHEHG HEHEHE HEHEHE HHH HEHEHE 
374 017714 112021 LDBUF: MOVB  (RO)+,(R1)+ ;LOAD A BYTE 

3575 017716 001376 BNE ace : : UNTIL ZERO BYTE FOUND. 

3577 5 ENT DROUTINE 10 CHECK THE VTE1 FOR A PERIPHERAL ABORT. 
3879 5 HHH JHB HHHEHEHGHH HEH HHH HHH EE 
eet 017728 032737 010000 002224 CKABRT: BIT SPABRT, VSTAT ;ABORT FLAG RECEIVED? 

385 es 010037 001124 MOV RO, SGDDAT ‘ 

3584 Mees 162737 000004 001124 sus #4, $600 - ;POINT ERR PC TO MAIN ROUTINE. 
oe ipre2 104020 —_ ERROR 20 _— ISSUE PERIPHERAL ABORT ERROR 
3588 017754 013701‘ 015272 MOV TBBUF ,R1 

3589 017760 004037 017714 JSR RO, LDBUF -LOAD THE XMIT BUFFER WITH: 

3590 017764 033 117 137 -BYTE .E5C,.0,.IABT,.ESC,.0,.RABT 

3591 O1777e 033 117 145 -BYTE .ESC,.0,.UNLKKB,O 

3592 017776 O1 000011 015300 MOV #9. , XMCNT ;SET_UP TO XMIT 9 BYTES. 

3233 620004 015702 JSR RO, XMREC :XMIT AND RECEIVE. 

2% 1 376 015020 000170 CHP STRO, #NABRT ;QBORT F CLEARED? 

35 1 001124 MOV RO, SGDDAT *NO-SET UP AND ISSUE A CANT 

22 020026 ibe? 37 000004 901124 SUB #4, $c0087 : CLEAR ABORT FLAG ERROR MESSAGE. 
3600 Geog 10402 — ERROR 21 —_— 

3601 00200 2s: RTS RO 





nee wee - ete 


OZVTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEG 0078 
3 HHHHIHHIHHHHHHHEHHHHHHHHHHHHHHHHHHHHHHHHIHHHIHIEHHIHIE iit 


+ PrC SUE EEYRORRO POG T{OH, ERRORS PORTED 
: RES ° RRORS AND T DATA RS CORBARE RROR 
,  aunnundenenstenecostaneeeoeeSOSESRROGSOSAUSESRSSASTERECNS=OREE 


| NAINDEC-11-DZ2VTH-8 MACY11 27(1006) rie’ Eeoon 08:58 PAGE 13-62 


Sane TS | 





10 OC 114 CKKBD: CLRB P ;CLEAR RECE YT 
Sit ees ise gu eM Rae 
3612 Oe00S6 105777 011130 KBOLP: TSTB @ABUFP ;WAIT FOR A INPUT. 
ols 020062 001775 BEQ “4 
3615 117737 Olliee O0e2l62 MOVB @ABUFP ,CHRD ;STORE I 
3616 eve 10607 011114 CLRB @ABUFP ; CLEAR THe IN 
Me ld 
3619 O20104 005237 00221 INC BUBCT T. 
ay reat 27 O02e10 o000le gts mpg 88. COON Ir TINE. 
see Det 123 O1o401 MOV «RY, 
ot 1 1 011572 SUB DTTBL (RS), Ri ;EXTRACT KEY sgh tag Aan 2A LOC. 
ee ci tee BE wom =e, the a 
se? Oe Hf e372? 002165 900060 CHE SVERISI, 860; SIT TON S6 THAN 8?” 
3629 pent 12372? 002164 o00062 CMPB 8 =s SVER1, #62 POSITION GREATER nt 8 AND LESS THAN12? 
E31 eats lee7a7 o000d2 002164 SUB eee 1 - T t SuBTRAeT oS 
3633 0201 1 000370 002164 BOROW: SUB SSUpTRACT AND BORROW. 
fed lisea7 B0¢ ise ps3 LDPOS: me Rel Me ;LOAD THE CONVERTED DECIMAL &. 
2636 O01 027545 DMPOCT: MOV »R3 
cog 016226 oe he of DANIT ; ISSUE BODY OF KEYBOARD ERROR. 
3639 bovo37 017416 TSR RO ' ;BINOCT . 
3640 0} 002164 MOV #SVER1 }R3 
wil JSR RO ‘LOXMIT ;CONVERT AND ISSUE GOOD CHAR. 
4 MOV —- #OSPC6, RS 

3643 Agere 4 RO,LDMALT ; INSERT & SPACES IN MESSAGE. 
S645 ooic37 BIPaie JSR *BINocT 
3646 1 002164 MOV SSVER1 ,R3 
3647 proces a » eel ;CONVERT AND ISSUE RECEIVED CHAR. 
= . | An eae ee yee 

1 

GOSTRK: RY NT KE ROW COUNTER. 

se fan Bee Ee PR eben 
3655 000200 CNTF: RTS RO iVES+E 
Ss 
3658 





- ee ee -——_ 


ES SNS Sn we ae ey 


ne ee eS 
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DZVTHB.P11 11-FEB-77 08:24 TYPE PROGRAM NAME SEG 0079 


a REHURS Ab SoU BS" PUMA GRE 

3661 sEXCEED SS2 BYTES WILL RESULT IN THE TERMINA 

3662 OF THE OPERATION AFTER SS2 RECEIVED BYTES. 

ees 5 aaa eats eal nc 
020314 005237 O20616 LOOP: INC al UP TO XMIT NULLS. 

i, feve Heve Sle BST RY emg RET BAN rumen 

28 BEG RE BHD coco ie aoe rar HEAPS SR a. 

3671 13704 014770 LOOPT: MOV mecerys F 

3076 DEO 395 ranted 002224 LOOPTA: Bit Mtat MIT ¢ VEONPLET 

3674 020362 042737 2 BIC eXMONE , VSTAT YES RESET 

Fgh] 013737 014764 014770 MOV RBBUF , RBUFP ;RESET THE REC. BUFFER POINTER 

36 De0400 001400 002224 LOOPR: BIT 


LOOPT 
a sReceren eS “am E " OR EPL? 


ieeeD Ae A DISPLAY CHAR? 


8 
ane 
2 
3 


Sac 
: 


BEQ ooPTA 
a, Bare 
O10S66 174342 LPSTR: MOVB p, @RBUF P YES nel IT IN THE BUFFER 


ae 002224 ch rE VSTAT ead FEY BRE ha 
basise NPB 


ENT oneure RRR SN EsKtoaai 


36 

se) pile 

ee Ene 

oe ceo 

3688 Oe04S6 
teoiee 


BEQ Loopt SEE MALL Foe FOR NEXT PART OF FUNCTION 
901 174302 HOVE NF , @REUFP ADD A LINE FEED. 
BR FRCECT sAND ISSUE THEM. 
015300 000764 BUMPCT: CMP XMCNT, #500. :BUFFER ABOUT FILLED? 
014770 18: Bre YES-RESET THE RECEIVE POINTER 
weed 1 FRCECT i LOCNT NT THE XMIT COUNT 
bese 1 oo0002 : cre XHCNT, #2 IFIRST CHAR 5 xMdT? 





Bayo ADRS theo 


RTS RO SAND EXIT — 
jj REE EERE EERE REBAR EREE SEE OE OND. THE CONTROL 
; CK FOR E TEST COMMAND. THE CONT 
iC k Y EXITS TESTS EXCEPT THE BLOCK MODE TEST 
3 RTTriiTititiiiiiitiiiitiete EEL EEE D DS 


PRSEE Print’ 
oo 
ee 
: 
3 


3710 G20S44 127727 010442 000003 EXTST: P, ;LOOK FOR CONT ; 

gi] aS Drm gee Rest em rn coma 
O20SS4 012737 030511 O14766 ABSXT: MOV #RCRLB+477 , REBUF ;RESET THE BUFFERS 

3714 Oe0S62 012737 030512 015272 MOV #TCRLB, TBBUF 





ee ee +e + 


= 
B07 
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DZVTHB.P11 11-FE8-77 08:24 TYPE PROGRAM NAME 







3715 020570 004037 016266 JSR RO, RESPTR ;RESET ALL POINTERS 
3716 020574 012702 026433 MOV #DEXT, Re 

3717 S000 017322 JSR RO, OSMES i ISSUE EX T MESSAGE 

3718 020616 CLR XMZER : CLEAR ZERO TRANSMIT FLAG. 
3719 020610 oo0002 ADD #2,R0 CLEAT TEST EXIT. 

3720 020614 000200 NOROUT: RTS RO ‘EXIT SUBROUTINE. 

3722 020616 o00000 ITER: .WORD O 

3723 | SHH EHH HHH HEHEHE HHH EHH 
3724 TO LOOK FOR VSTAT aIT ON THE STACK 

3725 DELAY ACTOR IS FIRST WORD ON THE STACK AND VSTAT BIT 
3726 ‘1S THE SECOND. MIN. DELAY IS 4 U.S FOR A 

352 ,  AUEEEELSPERSSADESSSSESOSSAESESSSSETOROSETAUSESEASSTESEOSTIEEOOS 
3729 020620 ae 

(2) O20620 012637 o02222 MOV (SP)+, ROSVE ;;POP STACK INTO ROSVE 

3730 020624 012637 0207 MOV (3P)4, VDLAY ; POP STACK INTO VDLAY 

3731 020630 012637 020704 MOV (5P)+, VBIT ::POP STACK INTO VBIT 

3732 020634 005037 002220 1$: CLR 

3733 O20640 033737 020704 o02224 2s: BIT vBrt VSTAT ;SENSED THE CONDITION? 

3734 O20646 001012 BNE FNDBT : YES-EXIT. 

3735 Se0es0 005337 002220 DEC DLAY *NO=RUN DELAY. 

te 020655 020706 DEC VDLAY ;DELAY FACTOR EXPIRED? 

3738 Oe0662 001364 BNE :NO=L 

3739 O20664 104011 ERROR 11 ‘DELAY EXPIRED-ISSUE HUNG NIT 
sro Oe0bbb bose37 o02200 Inc FILCNT INCREMENT FATAL XMIT COUNT. 

3742 rare FNDBT: TST (RO)+ ;SET UP FOR NORMAL EXIT 

1 BSDETe 01374 002222 aden MOV ROSVE, -(SP) PUSH ROSVE ON STACK 

3744 020702 000200 RTS RO vy 

3745 020704 00000 verT: 0 

374 020706 o00000 vOLAY 0 

3747 TMT TTT TTT 
3748 SUBROUTINE TO LOOK FOR XOFF BEFORE EXITING A RECEIVE ROUTINE. 
3749 jE 
Fe : 020710 005037 od2220 ail CLR DLAY 

3752 020714 032737 100000 on2224 iS: BIT BRXOFF,VSTAT  ; 1S XOFF SET? 

3753 020722 001403 BEQ :NO-EXI 

3754 020724 005337 o02220 DEC OLAY ‘RUN DELAY. 

3755 020730 001371 BNE 1$ 

3756 020732 000200 2S: RTS RO 

eg .SBTTL SCOPE HANDLER ROUTINE 


(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


J Juspusnensouesusuecnnseanneseesseenseonesnestpeteesaneeneseee 
t ATHIS ROUTINE CONTROLS THE OOF ING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUNBERCSTSTNM ) INTO THE Plate REG. (DISPLAY<?: 0) } 
;*AND LOAD THE E AG (SERFLG) INTO DISPLAY<15:08> 
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


i *SW14=1 L 
i* *SW11=1 py T ITERATIONS 
be WO9=1 LOOP 


*SWO8=1 LOOP ON TEST IN SWR<7:0> 








CO? 


| MAINDEC-11-DZVTH-B MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-65 
08:24 SCOPE 


D2VTHB.P11 11-FEB-77 HANOLER ROUTINE SEQ 0081 
(1) ; #CALL 
(1) i SCOPE ; ;SCOPESIOT 
(1) 020734 SSCOPE: 
(2) 020734 004037 013630 JSR RO, MONIT 
(1) 20740 040000 160172 1S: BIT #81714, aSWR :;LOOP_ON PRESENT TEST? 
(1) O2074% OO1111 BNE SOV YES IF SW14= 
(1) -#HeBESTART OF CODE FOR THE XOR TESTERS#eR® 
(1) 020750 o00416 $xTSTR: BR 6$ ss I THE “XOR” TESTER CHANGE 
(1) :: THIS INSTRUCTION TO A “NOP” (NOP=240) 
(1) O20752 013746 MOV DHERRVEC,-(SP) ;:SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 020756 012737 020776 O00004 MOV #S5$,a#ERRVEC  3;5ET FOR TIMEOUT 
(1) 020764 005737 177060 TST dal :: TIME OUT ON XOR? 
(1) 020770 012637 O00004 MOV (SP)+. J#ERRVEC ;;RESTORE THE ERROR VECTOR 
(1) 020774 000463 ge SSvLAb ::G0 TO NEXT TEST 
(1) 020776 Oeebe6 cs: CMP (SP)+, (SP)+ t:CLEAR THE STACK AFTER A TIME OUT 
(1) O21000 012637 o00004 MOV (SP)+, JBERRVEC j SRESTORE THE VECTOR 
(1) 021008 000423 BR 75 tL T SENT TEST 
(1) O21006 6$:; ##88BEND OF CODE FOR THE XOR’ TESTERSSERS 
(1) 021006 032777 OOD400 160124 BIT #81T08, ISWR ;;LOOP ON SPEC. TEST? 
(1) 021014 001404 BEQ :: BR IF 
(1) 021016 127737 160116 001102 CMPB 0s SW, STSTNM ::0N THE RIGHT TEST? SWR<7:0) 
(1) G21024 001462 BEQ SOVER ::BR IF YES 
(1) 021026 105737 001103 2S: TSTB  SERFLG HAS AN ERROR OCCURRED? 
(1) O21032 001421 BEQ ::BR IF 
(1) O21034 123737 001115 001103 CMPB  SERMAX,SERFLG ;MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) Oel042 101015 BHI ::BR IF NO 
(1) O2l044 032777 001000 160066 BIT #81709, ISWR ::LOOP_ON ERROR? 
(1) Oe10S2 001404 BEQ y :BR IF NO 
(1) 021054 013737 001110 001106 7S: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
(1) 021062 O00443 BR SOVER 
(1) 021064 105037 001103 ug: CLRB © SERFLG ;;ZERO_THE ERROR FLAG 
(1) 021070 005037 001160 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 021074 OO041S BR 1$ i sESC TO THE NEXT TEST 
(1) 021076 032777 OO4ODD 160034 3S: BIT $B1T11,9SWR :: INHIBIT ITERATIONS? 
(1) O2110% 001011 BNE 1 + IF YES 
(1) 021106 005737 001100 TST $PASS : 2 IF Inst PASS OF PROGRAM 
(1) Qelll2 001406 Q 1$ + NHIBIT ITERATIONS 
(1) 021114 005237 001104 INC SICNT 2 T ITERATION COUNT 
(1) Q21120 023737 001160 001104 CMP STIMES,SICNT § ;;CHECK NUMBER OF ITERATIONS MADE 
(1) Oelles OO0e021 GE SOVER *:BR IF TION REQUIRED 
(1) 021130 012737 000001 001104 1S: MOV #1, SICNT : REINITIALIZE THE ITERATION COUNTER 
(1) 021136 013737 Oe2l2e06 001160 MOV SMXCNT,STIMES ;; OF ITERATIONS TO DO 
(1) 21144 105237 o01102 SSVYLAD: INCB $TSTNM COUNT TEST NUMBERS 
(1) Q211S0 011637 001106 MOV (SP), SLPADR SAVE SCOPE LOOP ADDRESS 
(1) O21154 011637 001110 MOV (SP)'SLPERR ::SAVE ERROR LOOP ADDRESS 
(1) O21160 005037 001162 CLR SESCAPE ::CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) O21164 112737 000001 001115 MOVB #1, SERMAX tt ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 021172 013777 001102 157742 SOVER: MOV STSTNM, DISPLAY ;;DISPLAY TEST NUMBE 
(1) O21200 013716 001106 MOV SLPADR, (SP) :?FUDGE RETURN ADDRESS 
(1) 021204 o00002 RTI 33FI 
(1) OQ2le06 o00005 SMXCNT: 5 ::MAX. NUMBER OF ITERATIONS 
3758 “SBTTL. ERROR HANDLER ROUTINE 
(2) ss SEEGER EEE EEE EE EERE EEE EERE EE EAE EE ERE R ERE RERREE EERE EERE REE 
(1) tKTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 





el 


ee a 


y 
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RTI 
-SBTTL TYPE ROUTINE 


: Pa TINE TO TIPE acl? MESchGe MESSAGE MUST TERMINATE WITH AO. 
i ROU 0 TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:#THE Ta TINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: #NOTEL: $ THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


& 


NULL yield 
; #NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


:#CALL: 
:%1) USING A TRAP INSTRUCTION 
i TYPE §_,MESADR 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


D> VE THE E ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
1 ae <Surten GPT THON PROV bED BY THIS ROUTINE ARE: 

(i) INHIBIT ERROR TYPEOUTS 

(1) sepa! BELL ON ERROR 

(1) :#5WO9=1 LOOP ON ERROR 

(1) ;#CALL 

(1) # ERROR N ; sERROR=EMT AND N=ERROR ITEM NUMBER 

(1) gereio 001103 SERROR: ce RFLG THE ERROR FLAG 

(1) 651510 ABS532 ; EQ $§ + EN? 'T LET THE FLA GO TO ZERO 
(1) Ge1216 013777 001102 157716 Nov STSTNM, ADISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
(1) ps iss3 aes Bed ig ? biRGCe Quip 

(1) 021234 104401 001164 TYPE SBELL ::RING BELL 

(1) O21240 005237 O01112 1S: INC SERTTL :COUNT THE NUMBER OF ERRORS 

(1) Geigw4 011637 001116 Hae, HOV (SP). SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
(1) Qel reff z er 001114 MOVB oa SRP TEMB TRIP SAVE THE ERROR ITEM CODE 
(1) aes 1 bie T ierh THEO IF SET 

(1) Oel272 001004 , BNE che fe serie TYPEOUTS 

(1) 021274 004737 021576 ISR ees beeaee :GO TO USER ERROR ROUTINE 

(1) 21300 104401 001171 ri TYPE  ,SCRLF 

(1) 021304 005777 157630 2$: TST aSWR ;HALT ON ERROR 

(1) 021319 100001 BPL 3$ + SKIP F CONTINUE 

(1) O21312 O00000 HALT * HAL 

(1) 021314 030777 001000 157616 35: BIT #81709, SUR j {LOOP _ON ERROR SWITCH SET? 

(1) Ge13e4 1 1 1110 MOV SLPERR, (SP) tinge TURN FOR LOOPING 

(1) 021330 05737 1162 4g: Ts SESCAPE Ger FOR AN ESCAPE ADDRESS 
(1) 021336 013716 001162 a MOV SESCAPE,(SP) | }:FUDGE RETURN ADDRESS FOR ESCAPE 
(1) O21342 022737 oO10602 opoo42 ~~ CMP #SENDAD, 3842  ;;ACT-11 AUTO-ACCEPT? 

(1) 021350 001001 BNE 65 ::BRANCH IF NO 

(1) 021352 000000 HALT YES 

(1) 021354 6S: 

3}? 021354 oo0002 ; ; RETURN 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 


en ee ee oe ate 
ee ee ee ee eet eet ee ee eet ee ee ee ee 


.# TYPE 
* MESADR 
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b e 
| a) 021356 10$737 001157 $TYPE: TSTB STPFLG ::IS THERE A TERMINAL? 
| 1 aes HRLT am tifa uke IF NO TERMINAL 
(1) O21 1 18: MOV RO, -(SP) Cave 
(1) BS 1358 Bt oooo002 MOV detSP),RO ii apye ABDRESS OF ASCIZ STRING 
(1) 021376 12046 23: MOVB (RO) +,-(SP) PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) Oel 1005 BNE 4 ‘BR IF IT ISN’T THE TERM 
1) BR Brass ae eS: 5 alleles 
(1) rae oo0002 3S: gp #2, (SP) + UST RETURN PC 
(1) Q214149 122716 000011 4g: CMPB Ss HT, (SP) BRANCH IF <HT> 
(1) 021420 001430 BEQ 
(1) beluge Age7hb o00200 CPB SCRLF, (SP) BRANCH IF NOT <CRLF> 
BBB | A ed hala 
(1) O21434 001171 SCRLF 
(1) Q21436 105037 021572 CLRB § $CHARCNT CLEAR CHARACTER COUN 
(1) OGel442 000755 BR 2$ GET NEXT CHARACTER 
(1) Gea 004737 021526 S$: JSR PC. STYPEC #60 T THIS oghapac " 
(1) Ge 1450 163726 001156 ES: ChPE SFILLC, (SP)+ is1S Mi TINE FOR F FILLER CHARS. ? 
(1) 021456 013746 001154 MOV SNULL, -(SP) j3GET # OF FILLER CHARS. "NEEDED 
(1) 021462 105366 000001 7S: DECB =s-«AA( SP? +: DOES A NULL NEED TO BE TYPED? 
DB BBEEE GBPS corse Bet BE sree 78S Hea gg ME ML OFF oF sta 
(1) 021474 105337 021572 DECB SCHARCNT ::00 NOT COUNT As A COUNT 
(1) O21 000770 BR t+ LOOP 
(1) ;HORIZONTAL TAB PROCESSOR 
(1) 021502 112716 000040 gs: HOV " (SP) j ;REPLACE 78 WITH SPACE 
(1) rae 132737 nati 021872 2itp tyson i BRANCH PF NBT AT 
(1) O21520 O01 BNE i; TRE STOP 
(1) 021522 005726 TST top) 13 eae SPACE OFF | OFF ST ack 
( 1) O51 SSe 108797 1S7416 STYPEC: fer8 serps. IT UNTIL HOR TNT R IS READY 
(1) ees 74 MO 2( TPB +3 DATA REG. 
iD ae 12878 BBRB TE ABadds cre aor, ct8P) pee Re CARR ARR TAGE R RETURN? 
(1) Oe 1B5e 105037 021572 cLRE SCHARCNT HG S--CLER CLEAR MB HARACTER COUNT 
(1) 021560 ice7bb o00012 oo0002 15: CHPE alr .2(SP) iis mente es LINE FEED? 
(1) ata tbeee INCB = (PC) + ?:COUNT THE CHARACTER 
(1) 021572 000000 SCHARCNT: .WORD 0 :: CHARACTER COUNT STORAGE 
(1) 021574 000207 STYPEX: RTS PC 
3761 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
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(]) 
(2) RS SHARKS AAASHSLAARAEREARA REALE RRRAAARALAAA REALE RARRALAA RARER LEE 

| (1) :*THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
(1) :#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
() :#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 921576 SERRTYP: 
(1) Beieas Aion, OOtt? mov. ROCN CSP) aS petal <ecttpen! 
(1) Q21604 o0S000 CLR RO’ ‘PICKUP THE ITEM INDEX 
(1) O2l16M% 153700 001114 BISB ag@aSITEMB,RO 
( 1) O21612 O01 BNE 1$ ss IF TEM NUNBE ER IS ZERO, JUST 
‘e) 021614 01374 OO1116 MOV SERRPC, - (SP) >: SAVE SE FOR TYPEOUT 
‘@) 921620 104402 TyPoc _ ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 

| (1) ate en 1S: DEC RO ADJUST THE INDEX SO THAT IT WILL 
Ch) Geibes 006300 RSL RO tt WORK FOR THE ERROR TABLE 
(1) 02 1632 Ooes00 ASL RO 
(1) el 001174 ADD #SERRTB, RO ;;FORM TABLE POINTER 
1 Geiew Ghia ee age hero ar pw-eointen 
(1) 16% 1 He T . 
(1) O21650 oo0000 23: .WORD 0 "ERROR MESSAGE” PORTER GOES HERE 
(1) O21652 104401 001171 TYPE SCRLF "CARRIAGE RETURN” & "LINE FEED” 
(1) poles einen Onteee a Oi ECP TYPeOUT IFO 
(t} SSieee bocca "TORO br a te aobee ER 
(1) 1 4$: ‘ 0 3; "DATA POINTER GOES HERE 
(1) 21670 104401 001171 TYPE SCRLF "CARRIAGE RETURN” & “LINE FEED” 
(1) Gelb74 o1 46 S$: MOV R1,~(SP) 35 SAVE 1 
i} Bie gone yg gaat ee Fa 
(1) 021702 012000 MOV (RO) +, RO ::PICKUP "DATA FORMAT” POINTER 
(1) 021704 105720 6S: TSTB 3s: (RO) + :"OCTAL” OR “DECIMAL” 
(1) 021706 001003 BNE 7§ ::BR IF DECIMAL 
(2) O21710 013146 MOV a(R1)+,-(SP) 55 SAVE a(R1)+ FOR TYPEOUT 
(e) 021716 1O4Nige TYPOC ® :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) O21716 73: 
(2) Q21716 013146 MOV Q(R1)+,-(SP)  ;;SAVE a(R1)+ FOR TYPEOUT 
8 BYE Bom 6 Bw fe Wee Ries sarees 1 
CD rae ert 021746 : BOE is BR TWO(2) SPACES | 
(1) 51558 ipo7ed BR 6$ + OE 
1) BER Bia i. YS HET 
1) GB 1746 TOseoT 001171 : yee gacrLF + ORR RR TAGE RETURN” & “LINE FEED” 
(1) 021746 S20040 000 118: -ASCIZ a :TWO(2) SPACES 
3762 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 





ee eee 


GO? 


| MAINDEC-11-D2VTH-8 MACY11 27(1006) 11-FEB-77 08:58 PAGE 13-69 
D2VTHB.P11 11-FEB-77 08:24 BINARY TO OCTAL (ASCII) AND TYPE SEG o085 
(1) 
(2) : + RESRERRREREREESRASS RAS RRRRARRARRRRARLA RRA AAHRAARRRAERAASEAELELES 
(1) :&THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) :#OCTAL (ASCII) NUMBER AND TYPE IT. 
(i) ; #S TYPOS ---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
(1) # MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
(1) i TYPOS 5 FCALL FOR TYPEOU 
(1)  & .BYTE ON ::N=I TO & FOR NUMBER OF DIGITS TO TYPE 
(1) + % .BYTE M ;;M=1 OR O 
(1) 1% :;1=TYPE LEADING ZEROS 
1) 1% ::Q=SUPPRESS LEADING ZEROS 
) # 
(1) : ¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) ; #STYPOS OR $TYPOC 
(1) :*CALL: 
(1) # MOV NUM, -(SP) NUMBER TO BE TYPED 
(1) i TYPON :CALL FOR TYPEOUT 
(1) ener HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(1) i MOV -(SP) ;;NUMBER TO BE TYPED 
(1) 1% TYPOC CALL FOR TYPEOUT 
(1) 01764% oo0000 STYPOS: MOV a(SP),-(SP) : PICKUP THE MODE 
(1) 116637 000001 022175 Move © 1(5P),SOFILL — ;LOAD_ ZERO FILL SWITCH 
(1) 112637 022177 (SP)+.SOMODE+1 ;:NUMBER OF DIGITS TO TYPE 
(1) 062716 o00002 ADD #2, (SP) tt ADJUST RETURN ADDRESS 
(1) 000406 BR STYPON 
(1) 112737 000001 022175 STYPOC: MOVB #1,SOFILL ;;SET THE ZERO FILL SWITCH 
(1) 112737 000006 022177 MOVE #6, SOMODE+1 SET FOR SIX(6) DIGITS 
(1) 12737 OO0000S 022174 STYPON: MOVB 85,SOCNT is SET veh ITERATION COUNT 
(1) 10346 MOV R3,-(SP) 2:56 
(1) 10446 MOV RY? -(SP) + OVE Rd 
(1) 010546 MOV RS; -(SP) >: SAVE RS 
(1) 13704 022177 nove SOMODE*+1 RY ::GET THE NUMBER OF DIGITS TO TYPE 
(1) 110437 176 MOVB BG’ SOMODE +a UET TT FOR ae ee ene 
(1) bleeoe + g00012 HOV sori es ee het Meas 
(1) G0s003 CLR 4g ‘ CLEAR THE OUTPUT WORD 
(1) 105 1S: ROL RS ; ;ROTATE MSB INTO “C” 
(1) 000404 BR 3 MSB 
(1) 006105 2s: ROL RS TORN THIS DIGIT 
(1) 105 ROL RS 
(1) ROL RS 
(1) i MOV RS,R3 
QD 10397 022176 38: Bete 6 SONODE i TPE THIS DIGIT? 
(1) {ood 177770 BP. ; 77770,R3 i aie 0 OF JUNK 
(1) ayers NE H *: TEST 
(1) 704 TST RY ; j SUPPRESS THIS 0? 
(1) 901403 BEG c$ IF YES of 
(1) o4 4g: INC RY EON’ T SUPPRESS ANYMORE O'S 
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(h) B55i38 pee7h3 $ Bre ORS + UOKE ASCII TF NOT ALREADY 
i) p55 iss 11033 BSs1 95 | Type Ra, es i SiVe OR Yep DIGIT 
(1) peste 180497 5 174 7$: DECB ©: S$OCNT + RO UNT 1 
(1) Qeel4e 00334 BGT 118 If MORE TO DO 
(1) O22144 BLT 65 ‘BR IF DONE 
( 1 O22 16 bos204 INC RY i INSURE Hest ot DIGIT ISN’ T A BLANK 
(1) pssie5 012605 6S: MOV (SP)+,RS i RP CTORE RS” 
(1) O22154 012604 MOV (SP)+°RY ::RESTORE RY 
(1) O22158 012603 MOV (SP)+°R3 RESTORE R3 
(1) OQ22160 O16666 o00002 coD004 MOV 2(SP)'4(SP) ::SET THE STACK FOR RETURNING 
(1) O22166 012616 MOV (SP)+' (SP) 
(1) 022170 o00002 RTI ; ;RETURN 
(1) O2e17e2 000 8S: .BYTE 0 ::STORAGE FOR ASCII DIGIT 
a) Bh ie soon Ere 8 dE play atte 
(1) 22175 000 SOFILL: :BYTE 0 :ZERO FILL SWITCH 
i 1) 022176 oo0c000 OF DIGITS TO TYPE 


$ Ps 0 ss 
“SBTTL_ CONVERT BINARY TO DECIMAL’AND TYPE ROUTINE 


3 
{(]) 

(2) eee ROUTINE 16 USED TO CHANGE fle -BIT BINARY NUMBER TO A S-DI 

(1) HATHIS 1S ROUTINE I 1S (Heed To CHANGE A 16-BIT BINARY NUMBER TO A S-D1GIT 
(1) I) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1)  SRUMBER IS POSIT IVE VE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) :#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(t} i ee 

(1) : MOV NUM, - (SP) ;;PUT THE BINARY NUMBER ON THE STACK 
(1) : TYPDS ::GO TO THE ROUTINE 

(1) O22200 $TYPDS: 

(3) O22200 01004 MOV RO, -(SP) ;;PUSH RO ON STACK 

(3) Q22202e 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

(3) beeeny b10e46 MOV Re,-(SP) :: PUSH Re ON STACK 

(3) 10346 MOV R3,-(5P) PUSH R3 ON STACK 

(3) 22210 010546 MOV RS; -(SP) ::PUSH RS ON STACK 

(1) Oeeele O1e746 020200 MOV #20200, -(SP) jsSET BNK SHITCH AND SIGN 

(1) 1 1 000020 MOV 20(SP),R ;;GET I B 

(1) OQ22222 100004 BPL 1$ ::BR IF INPUT IS POS. 

(1) Q22224 0540S NEG RS *:MAKE THE BINARY NUMBER POS 

(1) deeeeb 112766 oo00ss 000001 MOVB = #’ =, (SP) ::MAKE THE ASCI NUMBER 

(1) 1S: CLR RO +: ZERO THE CONSTANTS INDE 

(1) 022236 012703 022414 MOV K,R3 *:SETUP THE OUTPUT POINTE 

CH) 112723 000040 - nove #’ ,(R3)+ i587 THE FIRST CHARACTER TO A BLANK 

CCC NE : > 

(1) Q22250 O}E001 022404 MOV SOTBL(RO),R1 33GE THE EORSTANT 

(1) Q22254 1601 3$: SUB R1,RS 3 #FORM THIS BCD DIGIT 

(1) 22256 BLT 4§ :BR IF DONE 

(1) Geceed INC Re : PINCREASE THE BCD DIGIT BY 1 

(1) Q22264 105 4§: ADD F1,RS ;ADD BACK THE CONSTANT 

(1) Gees 00570e TST Re CHECK IF BCD Ic T=0 

(1) 1002 ‘FALL THRO 

(1) 022272 105716 TSTB—s«( SP?) ::STILL DOING LEADING 0's? 





~ 
; 


t 


| MAINDEC-11-D2VTH-B MACYL1 27(1006) 11-FEB-77 08:58 PAGE 13-71 
OZVTHB.P11 1Li-FEB-77 08:24 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0087 
(1) 022274 100407 BMI 7$ ;;BR IF YES 
| (1) O22276 106316 S$: ASLB =: ( SP?) : MSD? 
Pee teste t 01 177777 Bete | eSP).-1(R3) 5 OR TF Ne THE SIGN 
(1) aT 118663 uae 6S: BIS MB Re + NBRE fhe Be ie ASCII 
| (1) Oe2314 000040 7§: BIS #’ |Re :MAKE IT A SPACE IF NOT ALREADY & DIGIT 
a io Gee329 MOVe Re, tR3)+ ‘PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) OBE o00010 Onp (hO)s OS a OLE INDEX 
(1) ER rat BLT 2s" + EOE TO THE NEXT DIGIT 
ee Sree a nt ae 
(1) ae Sage BR 63° ::G0 cHPhicE 0 ASCII 
(1) Oe 105726 8S: TSTB  s-« (SP) + :!WAS THE LSD THE FIRST NON-ZERO? 
(1) 100003 BPL 9$ ;;BR IF_NO 
(1) O22344 116663 177777 177776 MOVB  -1(SP),-2(R3) is YESS T THE SIGN FOR TYPING 
(1) Gee soe 108013 QS: CLRB ss (R33) i TERMINATOR 
(3) Qossee OtSeos + MM S403 iiDOp STACK INTO Re 
(3) os538 pisees MOV (SP)+'Re : POP TACK a Re 
(3) 022362 012601 MOV (SP)+°RI ::POP STACK INTO Rl 
| G) Oeesee Jomo] o2eqy mye | ‘Spa 1 oe SPE THE NUNB 
(1) 655358 bi eebe Be sab2 oo0004 MOV 2(SP),4(SP) bi NOt UST THE STACK 
(1) O22400 012616 MOV (SP)+) (SP) 
(1) Oee40e2 og0ge RTI ;;RETURN TO USER 
(1) Oe2404 20 $DTBL: 10000. 
(1) O22406 - 001750 1000. 
(1) Oe2410 000144 100. 
th) peeyis SpDbS K ee 4 
3764 hie ars R DOWN AND UP ROUTINES 
(2) 2 EREEEEEELEEREEE EERE EERE EERE EREE EERE EAR ERERER ARERR SEER EERE RES 
(1) ‘POWER DOWN ROUTINE 
(1) O22424 012737 Oe2564 000024 S$PWRON: MOV #SILLUP, 28PWRVEC ;;SET FOR FAST UP 
1) Oee3e 12737 000340 o00026 MOV #340 QEPURVEC j #PRIO:7 
(3) 1 MOV ,~ (SP) PUSH RO ON STACK 
(3) O2e442 O:0146 HOV Ri, ~(SP) PUSH Rl ON STACK 
(3) See ie pt Sue MOV RS = (ep) Puen RG ON TACK 
(3) 0224S0 O14 HOV RY, ~ (SP) j sPUSH RY ON STACK 
(3) Seed eat 156460 MOV (SP) + Puen Bee on STACK 
(1) O22460 010637 022570 MOV SP, SSAVRE ::SAVE SP 
(1) Bees Bbboto 022476 007024 HOV | #SPWRUP, JHPWRVEC’ ;;SET UP VECTOR 
(1) 74 6 BR 2 ;;HANG UP 
e H Toes 77 7 mamamaaaema ce smsttes lame cneagton teaetint 
(t) 022476 012737 O22564 000024 $PWRUP: MOV #SILLUP, JSPWRVEC ;;SET FOR FAST DOWN 
(t} BS5200 poeaa Geser0 OCR Serine jiGET SP FOR THE TTY 
(1) pssett 5258 1$: the SAVRE titatt FOR THE INC 
(1) 022520 001375 BNE 1$ ::0F WORD 





: JO? 
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| DZVTHB.P11 = 11-FEB-77 08:24 POWER DOWN AND UP ROUTINES SEQ 0088 
(3) geesee : 156412 MOV (SB)¢, , aSWR ;;POP STACK NTO aSWR 
Sd ta ae MOV (5P)+'R5 POP STACK INTO RS 
| (3) eee Oieb04 HOV ($P)+, Ra i POP STACK INTO RY 
(3) Bi Sens MOV (8p 33° Rs + Pop es K NI 5 
3) Beg Hee my Se irae sacs Ino 
(1) eat Bf 737 Oee4e4 o000e4 MOV tSPuRONea vec’? -SET UP THE POWER DOWN VECTOR 
(1) O22550 01737 000340 O0000c6 MOV #340, SNPURVECSS. « ::PRIO:7 
(1) bee556 gw4O} TYPE i REP 10+ THE POWER FAILURE 
(1) hose SPWRMG: gliORO SPOWER POWER FAIL MESSAGE POINTER 
(1) Bese poo000 SILLUP: HALT :T QUER 5 NCE WAS STARTED 
(1) OBBe7B 000008 ssavre: BY os i BEFORE Tye POWER Dok wpe d scinha tte 
(1) 022572 OOSOIS 047520 042527 SPOWER: .ASCIZ <15><12>"POWER" °’ 
(1) O22600 000122 
(1) EVEN 
768 .SBTTL TRAP DECODER 
(2 } + SERS RERESEREREE RRR RRA RARE SEE SSAA RRA RARARARERERR SAAR ALARA RRARE RAKE 
(1) jATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
(1) USE IT TO INDEX T TRAP TABLE FOR THE STARTING ADDRESS 
1) x0 THE "DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(1) 022602 01 STRAP: MOV RO, -(SP) ; SAVE RO 
(1) 22604 eee ooo002 "MOV 2(5P), RO iiGEr ere /POORESS 
(1) O22610 005740 TST - (RO) 
BS Ce he yeas 
MOV (RO), ; 
(1) O22be2 000200 ney 3 it INDEX ROUTTHEY 
(1) 
(1) ;; THIS IS USE TO HANDLE THE “GETPRI” MACRO 
(1) O22624% O1164%6 STRAP2: MOV (SP), -(SP) 5 RVE Tee DOWN 
(1) O22606 O16666 O00004 o00002 MOV 4(SP},2(SP) DOWN 
Ch) 022634 naailie RTI ti Res ORE THE PSW 
(3) .SBTTL TRAP TABLE 
(3) THIS T ONT STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) + 
3) By Fue et ae™ INSTRUCT TOR. 
(3) 
(3) 
(3) 022636 022624 
(3) 22640 021356 
(3) O2eb42 021776 
(3) 022644 021752 
(3) bS5ee8 BSS 505 
(1) 








me me + ee owe ee mee - sere eeee 


+ 





fri? 
| t 
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| DZ2VTHB.P11  11-FEB-77 08:24 TRAP TABLE SEQ 0089 
| 3766 
| 3767 022652 003074 003462 003670 TSTADD: TST1,TST2,TST3 
| 379 022660 OOMOGY ODNeIe 008432 ISTH, TSTS, TSTE 
| 3771 O22666 OO04662 005436 006116 TST7, TST10, TST11 
303 022674 006330 006504 006732 TST 12, TST13, TST14 
3778 022702 007154 007654 010072 TST1S, TST16, TST17 
3777 022710 010240 010636 011142 TST20, TST21, TST22 
358 022716 011340 011412 TST23, TST24 
3780 
3781 
783 042523 052126 STUPM: .ASCII /SET VT61S TO FULL DUPLEx, 7<15><12> 
047524 
base ty 
t Biz 
3784 041060 .ASCIZ /9600BAUD, REMOTE,PARITY MATCHED TO INTERFACE/<15><12> 
104 051040 
2 Bes 
101 0o44103 
023014 O4210S 052040 020117 
023022 O47111 042524 043122 
023030 O41S501 O0650S O00012 
3785 
ue 
3788 023036 O0S01S 042101 051104 DUNTST: .ASCIZ <15><12>/ADDRESSES WITH RESPONSIVE VT61S ARE: /<15><12> 
beauee Gauee? OMaiSN pSioaD 
023060 051505 bu7ee0 051516 
023066 053111 105 052126 
Ge Se al oe 
3789 53105 é { NOVT: .ASCIZ <15><12>/NO VT61 RESPONDED TO ESCZ SEQ. AUTO RETRY IN 30 SEC./<15><12> 
023114 052126 030466 051040 
023122 051505 047520 O42116 
023130 O4e21 117 
023136 440 
alte ie esto 
ast 116 
023166 051440 041505 
023174 006456 000012 
ei 
3792 DS 3200 1 ’ bs DLERR: .ASCIZ <15><12>/DL11 FAILED AT ADDRESS/ 
he at | 
023214 104 101 oO40440 
023222 O42104 O42S522 051523 








i oe 


= 
o 
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R RRR 
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LO? 
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| DZVTHB.P11  11-FEB-77 08:24 TRAP TABLE SEQ 0090 
— 023230 000 
| 37984 023231 115 047101 O40S2S DMANA: .ASCII /MANUAL TEST SELECTED -7<15><12> 
023236 020114 ges’ 0S2123 
| 051440 046105 041505 
Gesese dese4 020104 O064S5 
3795 1 116 105 .ASCIZ /ENTER ADDRESSES OF VT61S TO BE TESTED/<15><12> 
Pee) olds ORG O51I05 
023274 OS1S23 OS1S50S 047440 
02 052126 6 
Bisesy beei23 
123 
om 023324 005015 000 
3797 023331 052116 OS110S DMANB: .ASCIZ /ENTER TESTS TO BE RUN/<15><12> 
023336 052040 051508 051524 
023344 OS52040 020117 O4e50e2 
023352 OS5i040 047125 O0S01S 
023360 000 
3799 023361 101 O20116 OS51SO0S EMI: .ASCIZ /AN ESC SEQ. TO THE VT61 FAILED - OCTAL EQUIV. IS:/«15><12> 
023366 020103 O04 027121 . 
023374 O52040 2011 044124 
02341 111 
Bre GIG fet Rew 
023432 052521 111 O20056 
023440 


DH1: -ASCIZ /TEST# ERR PC BYTE 1+2 BYTE 3447<15><12) 


; 
-_ 
Ww 
— 


g 
; 
i: 
BF 2RNS 
s 


a 


% 
288 


x 

a’ 

Fi 

-_ 

wi 
x] 
— 
<£ 
Fa 


3801 
3802 EMe: -ASCIZ /RECEIVE STATUS ERROR. 7<15>< 12> 


a 
a8 


-ASCIZ /ADD. STAT. ERR.BITS CHAR. 7<15><1a> 


EM3: -ASCIZ /SOFTWARE (VSTAT) STATUS ERROR. 7<15><12> 


Ee . 
7] 


5 
batts 
gg 


g 


peers SOnaiant 


-ASCIZ / PASS#, TEST#, EXP.STAT, ACT.STAT/<15><12> 


a 
8S & 
3 


3806 023641 
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3813 


3816 


3819 


5 
££ 
ah 


sak Bacee ERIS 


Ree 


zm 


rT 
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Caan Ot 


oe 
g 
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é 
S 
ai Epes» 


est 
se 


af 
B 

2g 
Ry 


oo 
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Sie 


ba ee 
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RR F 
oh 


nz 
Ro 


RR 
— 


ee ee 


2 


ehh 8 
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TRAP TABLE 


EM4: 


EMS: 


EM6: 


EM?: 


-ASCIZ 


-ASCIZ 


- EVEN 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


MO? 


SEG 0091 


/GD. DATA DOES NOT MATCH REC. DATA/<15><1a> 


/TEST® ,REC.CNT.,GD. DATA, REC. DATA/<15><12> 


/BYTES EXPECTED DOES NOT EQUAL BYTES RECEIVED/<15>< 12> 


/BYTES EXP., BYTES REC.7<15><12> 


/CURSOR POSITIONING ERROR/<15>< 12> 


GD LINE GD COL. BOLINE BD COL7<15><1l2> 


/DIRECT CURSOR ADDRESSING FAILURE/<iS><12> 


/PASS# TEST #@ ERROR PC = /<15><12 








07 
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| 08:24 TRAP TABLE 


OZVTHB.P11 11-FEB-77 SEQ 0092 


DH10: .ASCIZ /PASS# TEST® BO.ROW 6D.COL/<i5><le> 


EM11: .ASCIZ /LAST TRANSMISSION TO VT61 CAUSED UNIT TO FAIL-HANG. 7<15>< 12> 





024456 

024457 1 0331 1 €EM12: .ASCIZ /VT61 UNDER TEST FAILED- ERROR DATA FOLLOWS/<15>< 12> 
Oe4464 ou7ise BySeON 1 

De4s00 asi Gsba04 


EM10: .ASCIZ /VT61 FAILED SELF TEST FUNCTION/<15><12> 


a 


Ree 

aa 
—e 

- 

iv 

- 

2 


OHl2: .ASCIZ /PASS#, TEST#, GD.CKSUM, BD.CKSUM/<15><12> 


mo 
s 
ei 
BR 282 


ie 
th 


eS 
a 


DABRT: .ASCIZ /TESTING ABORTED-TOO MANY FATAL XMITS/<15><12> 


sole 
25Re 
= 


cos 


<£ 
— 
ee 
oo 


/VT61 RECEIVER CHECKSUM COMPARE ERROR/<15)< 12> 


z 
* 
a8 
R 
Z 
: 


3833 024710 


—————— 
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TRAP TABLE 


MACY11 27(1006) 


11-FEB-77 08:24 


| DZVTHB.P11 


ites 


agg SeaaggS peas 


wr 
eave 


a eeREe 
BRELES 


2 Lied 


IDENT/<15>< 12> 
VECT. 7<15><12> 


VECT. 
ASCIZ /XON TO VT61 FAILED TO RESTART BLOCK XMIT/<15>< 12> 
-ASCIZ /NO XON RECEIVED WITHIN 3 SEC. AFTER A RESET/<15>< 12> 


-ASCIZ /VT61 TRANSMITTER CHECKSUM COMPARE ERROR/<15>< 12> 
-ASCIZ /XOFF TO VT61 FAILED TO HALT BLOCK XMIT/<15>< 12> 


-ASCIZ /PRINTER IS ATTACHED/<15>< 12> 
-ASCIZ /COPIER IS ATTACHED/<15><12> 


-ASCII /UNIT UNDER TEST 7¢15)><12) 


-ASCIZ /RCSR 
-ASCIZ 7 RCSR 


- EVEN 


DH11 
DPRTR 
DCOPYR: 
EM1S 
EM1E 


0 

104 044527 
7111 031440 
1505 020056 
eSe4 Oe0lee 


2 
J ee ge ye 
silcela | asactlcall funareealCamiurere! be 


—- 
pad v2 
Baz pares Bs wae Sissiekzed Hehe ae 


GGocelu Uiutunaconconconcdlt ei iundceanece 
Po. 


2 8 R R 8B 


020 
04 
04 
04 


- eee 





-_- a en ne enn oe 
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TRAP TABLE 


724 SEG 0094 


DZVTHB.P11 11-FEB-77 
1 


| MRINDEC-11-D2VTH-8 


B 
2? 
i 


EM20: .ASCIZ /LAST PERIPHERAL OPERATION ABORTED/<15>< 12> 


past 
a 
Hy 


RSEE 
RE 
Seviw 


Ze 


o~ 

<£ 

g 
MN NOO 


o 
S 
e 


EM21: .ASCIZ /COULD NOT CLEAR LAST ABORT FLAG. 7<i5><1l2> 


sae 

a! 
Se 
PER 

z8 
EOL 


2 
R 


“NUT 


EM22: .ASCIZ /SOM OR EOM NOT RECEIVED DURING MAINT. MODE TRANSMIT/<15><12> 


a 


RES 
ray 


Fe 
“ 
R 


—? 
2? 2 
Bee Sones 


38 See 
a 
iS 


BR 
sles 
Ragen 
mn 
? 
= 


EM23: .ASCIZ /LINE FEED OR CURSOR RIGHT ISSUED FROM ROW 23 DID NOT CAUSE SCREEN TO SC 


~ 

- 

£ 
22 
uN 

— ont 

_— 

S 

a 


i 


a) 
SSR 
a 


g 
R 
Z 
RRERE 
a 
Wer 


a 


a 
ag 
Se 
92 
= 


SRPIRS 
mtd ie 
PRERE 
sat 
Aue 
Raa 


DH13: .ASCIZ /PASS , TEST,  VSTAT/<15><1e> 


£ 
8 

aie 

ee 


051501 026123 OH14: .ASCIZ /PASS, TEST, ERR PC, YSTAT/<15><1l2> 


Sie 
: 


£ 
a 


105 041523 O00040 DESC: .ASCIZ /ESC / 


2513 041131 O40S17 DKYBD: .ASCII /KEYBOARD TEST/<15>< 12> 
052040 
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3858 


3889 


HEED 
OOS) INBeE cc prasnonna science 


026271 
026304 





ll 


ee ew ee ee ee Ce ee 


006S24 Ole 
113 aE 
oie Gas 
ior 042040 
046120 OS4S01 
040510 de7l2e 
1 1 
1463 
1S23 
03246 


2BRB2B 
eine 


033460 
sis 

116 
051511 
041440 
020075 
020114 
006526 
040524 

103 
026514 

102 

000 
04 114 alee 
O46040 04751 
foes 046515 
042040 meth 
044124 OS2522 

Q peel es 
i fhe 
0331 

047125 O4eS04 
O42Se4 052 


-_ 
uw 


es 
ie 


R 
a Bu 


044530 


2 
i! 
g 
S 


0S2123 


Bob47e 





S225 
ners 


a Hee 


— 
uw 


DCNT2: 


DEXT: 


-ASCIT 


-ASCIT 


-ASCII 


-ASCIZ 


-ASCIZ 


2. MACY11 27(1006) ag 2 me 08:58 PAGE 13-79 
B-77 08:24 TRAP TABLE 


“KEYSTROKES ECHO: 7«15><12> 


7A DISPLAY CHAR. = A DISPLAY CHAR. /<1S>< 12> 


/33 = ESC/<15) «12> 
IS = C-R/<15)<12) 
412 = L-F.’<15><le2> 
/0? = BELL/<15><«12> 
/1Q = TAB/<15><12> 
/NON-DISPLAY CHAR.= OCTAL EQUIV/<15><12> 


“LOOP TEST - LOOP COMMANDS AND DATA THRU/<15>< 12> 


7HOST BACK TO VT61 UNDER TEST. 7<15><12> 


/CONTROL C EXITS TEST./<15><12> 


/EXIT TEST. 


SEG 0095 


| MAINDEC-11-D2VTH-B MACYL1 
O2VTHB.P11 — 11-FEB-77 08:24 


0S11 047111 
Oe4152 


461 
14 1 
3117 
O44S 
OS0040 


aS 
: 
; 


elit hsrsrtlet cr) 


ee 


R 
~ 
_ 
8 
z 
_ 
_ 
N 


roa 


R 
R 
R ? 


e 


8 


o~r 
rom 
id 
-_ 
—_ 


2 
3 
R 


RR 
ae 
PRP 
Bae 


8S5 
R 
= 


ReVy 


2 
is 


SRSEEe Be 


a 
ay 
Ww 
Ww 
_ 


BRE 
if 


5 
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TRAP TABLE 


DCRST: 


DEVERR: 


QMRK: 
DOKBD: 


DLSHFT: 


DTOP: 


-ASCII 


-ASCIT 


-ASCII 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/PRINTER TEST -/«15><12> 


4132 COLUMNS OF A SLIDING PATTERN WILL BE/ 


“CONTINOUSLY OUTPUTTED TO PRINTER/<15><12> 


/CAR. RET. TO START/<15><12> 


/LAST XMIT CAUSED VT61 HANG/<15>< 12> 


127 
“PRODUCTION KEYBOARD TEST. 10 ERRORS CAUSES TEST EXIT./<15><12> 


/DEPRESS KEYS FROM LEFT TO RIGHT/<15><1l@> 


/DEPRESS LEFT SHIFT KEY AND THE “A” KEY 7<15><le> 


/DEPRESS KEYS IN TOP ROW/<15>< 12> 


EQS i 


SEG 0096 | 





| 
| 
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3891 


3894 


3899 
3900 
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GRUWESMEOS laisse 


ae 


Cues tt 


3 
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Ht 
28 


rn 


027560 
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Bs1040 48811 

OS1440 044510 
S440 054505 


042116 


Bis 
006440 


B Rees 

R nerws 
RE 
Prow 
Owe 


Base 
ax 


4 
hts 


GES Beh 
f: : 


R2RER 

ane 
REZARSVSS 
2 aa 


e 
os 


S2RR RUS 
8 


BRS 


~- 
~ 
o 
~ 
— 
Tw 


eR 
= 
oo 


Roros 


9988 
oR 2 
=) 


eels! 


ge gas 
8 rome 
Be 

RR S2TK 
wo Res 


2? 
aos 
By 
H 
a 


= 
a 
ao 
N& 
= 
we 


a? 


MrFWw WI 


58 
Re 
eR 


? 
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eet ee ee 


11-FEB-77 08:58 PAGE 13-81 


TRAP TABLE 

DRSHFT: .ASCIZ 
DSEC: .ASCIZ 
DTHRD: .ASCIZ 
DCONT: .ASCIZ 
DBOT: .ASCIZ 
DSPCE: .ASCIZ 
DKPD: .ASCIZ 
DKBERR: .ASCII 


/DEPRESS RIGHT SHIFT KEY AND THE “A” KEY 7<15><12> 


/DEPRESS KEYS IN SECOND ROW/<15>< 12> 


/DEPRESS KEYS IN THIRD ROW BEGINNING WITH °A’7<15>< 12> 


“DEPRESS CONTROL KEY ,AND THE “A” KEY 7<«15><12> 


“DEPRESS KEYS IN FORTH ROW EXCEPT SHIFT KEYS/<15><12> 


“DEPRESS SPACE BAR/<15>< 12> 


/DEPRESS KEYPAD KEYS,LEFT TO RIGHT, TOP TO BOTTOM’<15>< 12> 


/KEYBOARD ERROR,KEY POSITION IN ROW SHOULD BE / 


SEG 0097 | 
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8 
-O 


CeeRee ee 
WONMU CWT 


027566 131 
027574 O04 
027602 116 
027610 l23 
027616 1040 
027626 1517 
0276.34 Bast ae 
027642 
027650 006504 
027654 020040 
027662 000 
027663 036 
027666 013 
027671 OS4 
027674 041 
027677 063 
114 
026 
027707 073 
027712 oss 
027715 031 
027720 O62 
027723 000 
027724 O46 
027727 023 
027732 O4S 
027735 021 
027740 066 
027742 O16 
027745 0S0 
027750 02S 
027753 O65 
027756 067 
027760 001 
027762 101 
027764 015 
berrat SS «G 
027774 101 
027777 007 
n30002 00s 
A30007 010 
030006 110 
030011 000 
030012 ocosoo 


MACY11 27(1006) 
08:24 


re oe | ee ee isis 


GO8 
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TRAP TABLE 


KYSTRK: 


DSPCE: 


ROWL: 


ROW2: 


ROWS: 


ROW4: 


CNTRA: 
SHF TA: 
SPCB: 
KYPD: 


RCRLB: 


-ASCII 
-ASCIZ 
-ASCIZ 
.BYTE 


-BYTE 


.BYTE 


. BYTE 


.BYTE 
-BYTE 
.BYTE 
-BYTE 


.BYTE 


EVEN 


‘BLKE 


4 _/418)<12) 
7OCTAL GD, OCTAL BAD/<15>< 12> 


/ / 


36, 76,20, 13,32, 12,54, 44, 14,41,71,57,63,64,3,114,0 


26,56,30,73,52,22,55,34,24,31,51,77,62,61,2,0 


46,40,53,22,72,42,45,74,11,21,47,27,66,0 


16,70,60,50,33,43,25,35,75,65,37,115,67,0 


01,0 
101,0 
15,0 
113,04, 103,104,1,112,101,102,6,7,106,100,5 


10,105,107,110,17,111,0 


500 ;RECEIVE CIRCULAR BUFFER 


MACY11 27(1006) 
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TRAP TABLE 


aBL: BLKB 500 
ABBUF : ake Bo. 
PEND 


; TRANSMIT CIRCULAR BUFFER 


SEG 9099 


